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EDITORIAL 


Qui, JEDI n'a pas peur des HR Les petits malins qui 
font eu A Lt de TURBO-Forth à un prix frisant 
L'indécence, pour Le revendre, ne portent tort qu'à eux- 
même et à ceux auguels ils Le cèdent. En effet, nous ne 
gagnons pas notre vie avec Ce Langage, aiors quel pREUnte 
ABirians=hous? Non, celui qui JE TURBO-For th 
également, qui est adhérent de JEDI et qui pose 
régulièrement des questions dans Le FORUM est assuré d'un 
suivi qualitatif qui ne peut être assumé auprès du 
ossesseur d'une version piratée. Celui-ci ne connaîtra pas 
anteiee de JEDI et ne sera jamais informé des dernières 
nouveautés de TURBO-Forth. 


Et des nouveautés il y en a. Pour commencer, une virgüte 


flottante mixte TURBO-PASCAL/TURBO-FORTH. Ensuite, Le 
multi-fenétrage et dE couronner Le tout, un simulateur 
de processeur RCA 1602: exécution de code machine étranger 
au 4068 sur un PC ou compatible (programme adaptable à 


d'autres processeurs), 


Ensuite, pour vous informer plus abondamment, JEDI fait 
maintenant 26 pages: 18 à 20 : es en français; 6 à48 
pages en “version originale AUQEU de revues 
mr consacrées au FORTH. Bien entendu, 5i Les 
articles en français deviennent abondants (...par ici Les 
disquettes...), nous privilégierons Leur diffusion. 
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TURBO-Forth et TURBO-Pascal 


VIRGULE FLOTTANTE 


Pour : PC et COMPATIBLES 

Diffusion : 3615 SAM*JEDI  FLOAT.FTH (le programme source 
en PASCAL est intégré à FLOAT.FTH après EOF; la version 
compilée du programme PASCAL est disponible dans le fichier 
FLOAT.COM). Ce programme sera également disponible dans le 
module M4 TURBO-Forth, en cours de remplissage. 


mois-ci un programme permettant 
l'utilisation des nombres en virgule flottante en 
TUR80-FORTH (quelques adaptations seront nécessaires pour 
F83 Laxen & Perry, si des gens l'utilisent encore...). 


Jde vous adresse ce 


La méthode retenue est l'utilisation d'un programme 
résident en Turbo-PASCAL auquel on sous-traite les calculs 
ou les conversions à effectuer. En effet: 


- pourquoi réinventer la poudre? 

_ on est sûr d'avoir des routines "bug-free; 

- adaptation facile pour la version 4.0 de Turbo-PASCAL 
qui gère le coprocesseur s'il est là. 


J'ai cherché une relative optimisation de la vitesse, c'est 
pourquoi de nombreuses portions de code apparaissent; mais 
ji] est vrai que FORTH permet ceci très facilement. 
Malheureusement, l'absence de traitement des erreurs 
d'éxecution du Turbo-PASCAL alourdit beaucoup le programme 
PASCAL (traitement "manuel" des divisions par zéro, des 
dépassements trigo, etc...); l'erreur d'overflow ou 
d'underflow est irrécupérable et renvoie au DOS. 


La création d'un programe résident en Turbo-PASCAL est 
fondée sur l'utilisation de l'interruption DOS 27H. Les 
lecteurs intéressés pourront se rapporter aux deux bons 
articles sur ce sujets parus dans "La Revue de 
l'Utilisateur de 1'IBM PC" des mois de décembre 1987 et 
janvier 1988. 


L'interruption choisie pour l'activation du programme 
PASCAL résident est la 44H, dont le vecteur est en 0000:110 


- 0000:113 (hex). 


On vérifiera sur sa configuration que cette interruption 
est libre (i1 doit y avoir des zéros dans cette zône 
mémoire) ainsi que la suivante. En effet, le programme 
d'installation (procédure INSTALL) va ranger en 0000:114- 
117 l'offset et Île segment du début de la zône des 
variables, données indispensables au programme FORTH pour 
l'échange de paramètres. 


Le fonctionnement est très simple: pour faire effectuer une 
tâche à PASCAL, FORTH va initialiser les variables PASCAL 
nécessaires, par exemple x et y pour une addition, va 
inscrire un entier dans la variable PASCAL Operation et 


appeler l'interruption 40H. Au retour, FORTH lit les 
résultats (dans x, n ou sx selon le cas) ainsi que Île 
contenu de la variable erreur pour ABORT éventuel. A noter 


que l'affichage des flottants n'est pas sous-traité à 
PASCAL ('writeln'); en effet, il est indispensable que tous 
les affichages en FORTH passent par EMIT, en cas de 
redirection éventuelle. 


Le 1isting du programme PASCAL n'appelle pas de commentaire 
particulier. 


Pour le programme FORTH, je n'ai repris du F-PACK.FTH de M. 
ZUPAN que quelques mots de manipulation de pile. J'ai 
redéfini F@ et F! en code. J'ai introduit F, et (FLIT) pour 
des raisons d'homogénéité avec Îla compilation des entiers 
simple ou double précision, mais il faudra que le Cher 
Secrétaire rajoute un cas particulier à son décompilateur 


(mot SEE) (Ndlr: que de travail on exige de moi...!). 


Un mot sur l'utilisation: un flottant s'introduit précédé 
du mot & : j'ai cherché un mot d'une lettre encore non 
utilisé et celui-ci me paraît tout indiqué (pour ceux qui 
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feront le résident en Turbo-C gérant les flottants double 
précision, ils utiliseront tout naturellement &&...). 


Un flottant utilise 6 octets. Ces octets sont 


stockés en 


mémoire en FORTH dans les constantes ou les variables dans 


le même ordre qu'en PASCAL; sur 


la pile, Île dernier mot 


(deux octets) empilé est celui correspondant à l'adresse 


basse 


(voir la définition code de F! pour s'en 


convaincre). 


Le mot N.M (S 
des flottants: champ de 


avec 


nm-- }) gère le formattage de l'affichage 
n caractères justifiés à droite, 
m chiffres derrière le point décimal. Si m est 


strictement supérieur à 24, le format en virgule flottante 


sera 


d'utilisation évidents. Attention: 


utilisé. Le reste des mots est d'usage et 


INT renvoie un résultat - 


flottant; faire suivre de ROUND si nécessaire. 


Un dernier mot sur les performances: la ligne 


:: TIME 


82 
DO 
DO 


100 0 
&2 F* LOOP 100 0 
&2 F/ LOOP CR F. TIME CR .INTERVAL ; 


affiche 2.0000000 et 00:00:00,22 sur un AMSTRAD PC1512. 


LISTING PASCAL: 


(intégré à FLOAT.FTH) 


PROGRAM RESIDENT_YGS_ PAS; 


CONST 


type 


var 


const 


save DS: integer= $0000; 


enreg = record case integer of 


: (AX,BX,CX, DX, BP,SI,DI,DS,ES,FLAGS : integer); 


2: (AL, AH, BL, BH,CL, CH, DL, DH: BYTE); 


end; 
x,y : real; 
sx : string[18]; 
erreur, operation, n : integer; ! 
resultat : boolean; 
ndigits, mdigits : integer; 


offs: integer absolute $0000:$0114; é 
{ offset debut zône des variables } 

segm: integer absolute $0000:$0116; 

regs: enreg; 

vect40_offset: integer absolute $0000:$0110; 

vect40 segment: integer absolute $0000: $0112; 

last _ var : byte; 


pi : real = 3.1415926538979; 


PROCEDURE PT_ENTR; 


7: 


with regs do 


begin {Empilage des registres internes. } 
inline($50/$53/$51/$52/$56/$57/$1E/$06); 
inline($FA); 
inline($2E/$8E/$1E/save DS); 
intine($FB); a 
= TRAITEMENT) 
erreur := 0; 
case operation of * 
1: val(sx,x,erreur); + 
ê: x:=n; 
3: x := y+x; % 
A x := y-x; 
5: x 1= y#x; 
6: if x = O then erreur := 1 else x := y/x; 
if y <= 0 then erreur := 2 else x := exp(x#*in(y)); 
8: resultat := y=x; 
9: resultat := y<>x; 
10: resultat := y>x; 
11: resultat := y<x; 
12: resultat := y>=x; 


13: resultat := y<=x; 


14: if x = 0 then erreur := 1 else x := 1/x: 

15: x := -x; 

16: x := abs(x); 

17: x := sin(x); 

18: x := cos(x); 
19: if cos(x) = 0 then erreur := 3 else x := sin(x)/cos{x); 
20: if (x<-1) or (x>1) then erreur := 4 else 


begin 
if x = 1 then 
x := pi/2 


{ arcsin } 


else 
x:=arctan(x/sqrt(1-sqr(x))): 
end; 
21: if (x<-1) or (x>1) then erreur 
begin 
if x <> O then 
begin 
if x = -1 then 
x = -pi 
else 
xt=arctan((sqrt(1-sqr(x))/x)); 
if x<0 then x := x+pi; 
end 
else x 
end; 
20: if (x<-1) or (x>1) then 
erreur := 4 
else x := arctan(x); 
23: x int(x); 
24: x := frac(x); 
25: x := sqr(x); 
26: if x<0 then \ 
:= 5 else x := sqrt(x); 


:= 4 else 


{ arccos } 


:= pi/2; 


erreur 
27: if x<=0 then 

erreur := 6 else x := 1n(x); 
28: if x<=0 then 

erreur := 6 else x := In(x)/1n(10); 


29: x := exp(x); 
30: str(x:ndigits:mdigits, sx); 
31: if (x<-32767) or (x>32767) then 
erreur := 7 else n := round(x); 
end; 


inline($FA); 
inline($FB); 
inline($07/$1F/$5F/$5E/$54/$59/$58/$58); 
intine($CF); 
end; 
end; 


PROCEDURE INSTALL; 


Begin . 
ndigits : 
mdigits : 
with regs do 
begin 

inline($FA); 
vect40_ segment:= cseg; { Adr. de base pt. d'entrée } 
vect40_offset:= ofs(pt_entr)+7; 

G { Offset pt. d'entrée } 


0; 
4; 


inline($FB8); 
save DS:= dseg; 
segm:= seg(x); 
offs:= ofs(x); 
writeln; 
writeln('Programme installé !! ‘)}; 
writeln; 
AX := $3100: 
DX := Dseg - Cseg + ((ofs(Tast var) div 16)) + 1; 
intr($21,regs); 
end; 
end; 


{ sauve seg, données } 
{ transfert adresse du début } 
{ de la zône des variables } 


BEGIN 
writeln; 
if vect40 segment <> ofs(pt_entr)+7 then 
{ Test déjà installé? } 


install 

else 

begin 
writeln; 
writeln('installation déjà effectuée. ‘}: 
writeln; 

end; 

END. 


LISTING FORTH: FLOAT. FTH 


\ He 32e DID DD De D 3 3 ke ae ee GE DE M DE DE D 3 3 HE EE EG ED CDN D D 


\ VIRGULE FLOTTANTE 

\ HR ee ee HD He D He He He ee eee ak 3e a ae EE De HE D 2 I RIRE IRC EEE EEE EE ae 
\ 

ECHO OFF 


ONLY FORTH ALSO DEFINITIONS DECIMAL 
VARIABLE PSEG 
\ Contiendra le segment du programme PASCAL résident 
VARIABLE AREA 
\ Offset de la zône des variables PASCAL 
18 STRING SX$ 


HEX 

44 CONSTANT FINT 

5 INIT (S -- ) 
"Program FLOAT.COM" $EXECUTE 
0 116 L@ PSEG ! 
0 114 L@ AREA ! ; 

INIT 


\ Interruption 


\ Variables et constantes 
CODE F! (S real add -- ) 


DI POP AX POP  AX STOS 
AX POP  AX STOS  AX POP  AX STOS 
NEXT  END-CODE 


CODE F@ (S ad -- real ) 
SI W MOV \ Sauvegarde SI 
SI POP  AX LODS  AX DX MOV AX LODS 
AX CX MOV. AX LODS  AX PUSH  CX PUSH 
DX PUSH  W SI MOV | On rétablit SI = IP 
NEXT  END-CODE 


: F, Ç n1 n2 n3 ---) 
5 
: FVARIABLE 
CREATE O O0 OF, 
: FCONSTANT 
CREATE HERE 6 ALLOT F! DOES> F@ ; 


DOES> ; 


FVARIABLE FSTI FVARIABLE FST2 FVARIABLE FST3 
\ Manipulations de pile 
: FDUP 
3DUP ; 
: FOVER 
5 PICK 5 PICK 5 PICK ; 
: FROT 
FSTI F! FST2 F1 FST3 F1 
FST2 F@ FST1 F@ FST3 F@ ; 


: FSWAP 
FSTI F1 FST2 F1 FSTI F@ FST2 F@ ; 
: FDROP 
2DROP DROP ; 


\ Routines élémentaires de transfert de données. 
ASSEMBLER 
LABEL PUTX 
PSEG #) ES MOV 
21 # DI ADD 
\ ES:DI pointe vers la variable OPERATION 


AREA #) DI MOV 


DX AX MOV \ Code opération dans AX 

AX STOS \ Code opération stocké 

AREA #) DI MOV \ DI pointe vers la variable X 
HERE \ Label PUTY, compilé plus tard 

W POP 

\ Sauvegarde adresse de retour du RET 
AX POP AX STOS  AX POP 
AX STOS  AX POP  AX STOS W PUSH  RET 


CONSTANT PUTY 


LABEL GETX 


TD) N° 54. Fri PA 


£ 


SI DX MOV \ Sauvegarde SI 
AREA #) SI MOV PSEG #) DS MOV 

1F [SI] AX MOV \ Récupération code d'erreur 
0 # AX CMP 


0= 
IF \ Si pas d'erreur... 
STD 
4 # SI ADD 
\ DS:SI pointe vers le dernier mot de X 
AX LODS 
AX PUSH AX LODS 
AX PUSH \ Empilage de X 
AX LODS AX PUSH 
CLD 
\ Pour le bon fonctionnement de 1'interprêteur 
FALSE # AX MOV \ Drapeau 
THEN 
DX SI MOV \ On rétablit SI 
CS DX MOV \ On rétablit DS 


DX DS MOV  1PUSH 


\ Cconversion chaîne de caractères --> flottant 
: VAL (S ad len -- real_if_ok ) 


12 MIN \718 caractères maximum 
ASM[ 
PSEG #) ES MOV AREA #) DI MOV 
OC # DI ADD 
\ ES:DI pointe vers la variable SX du PASCAL 
CX POP \ Longueur... 
CX AX MOV 
AL BYTE STOS \ ...dans le premier octet de SX 
SI DX MOV \ Sauvegarde SI 
SI POP 


\ DS:SI pointe vers le premier caractère 


\ de la chaîne 
REP BYTE MOVS \ Transfert FORTH --> PASCAL 


1 # AX MOV AREA #) DI MOV 


21 # DI ADD 

\ ES:DI pointe vers la variable OPERATION 
AX STOS \ Opération := 1 

DX SI MOV \ On rétablit SI 


FINT INT  GETX #) JMP 


]JFORTH ABORT" Erreur de conversion pas 


\ Conversion flottant - chaîne de caractères - Affichage 
CODE FSTR$ (S real -- add len ) 


1E # DX MOV \ Code opération 
PUTX #) CALL 
FINT INT  SX$ DROP 1 - # DI MOV 


CS AX MOV 
AX ES MOV \ ES:DI pointe vers SX 
SI W MOV \ Sauvegarde SI 


AREA #) SI MOV OC # SI ADD 
PSEG #) DS MOV 


AX BYTE LODS \ Longueur dans AL... 
AX BYTE STOS AH AH XOR AX CX MOV 
AX DX MOV \ ...et dans DX 

REP BYTE MOVS \ Transfert 

W SI MOV \ On restaure SI 


CS AX MOV AX DS MOV 
SX$ DROP # AX MOV AX PUSH 
DX PUSH  NEXT 


END-CODE 


: F. (S real -- ) 
FSTR$ TYPE ; 


: F7 (S real -- real ) \ Affichage non destructif 
FDUP F. ; 


: NM(Snm--) 
PSEG @ AREA @ 28 + L! 
PSEG @ AREA @ 26 + LI ; 


\ Mots de définition 
: ?FERROR (S err code -- ) 
?DUP 


1 OF " Division par zéro!" ENDOF 
2 OF " x°y avec x<0!" ENDOF 
3 OF " Tangente infinie!" ENDOF 
“ Hors limites pour Arcsin ou Arccos!" ENDOF 
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5 OF " Racine carrée d'un nombre négatif!" ENDOF 
6 OF “ Logarithme d'un nombre négatif ou null!" ENDO 
ENDCASE TRUE ?ERROR 

THEN ; 


: MONADIC (S op -- ) 

CREATE C, 

DOES> (S real -- real }) 

c@ 

ASMT 
DX POP \ Code opération dans DX 
PUTX #) CALL  FINT INT  GETX #) JMP 

JFORTH ?FERROR ; 


: DYADIC (S op -- ) 

CREATE C, 

DOES> (S real real -- real ) 

ce 

ASM[ 
DX POP \ Code opération dans DX 
PUTX #) CALL  PUTY #) CALL 
FINT INT  GETX #) JMP 

JFORTH ?FERROR : 


: COMPARISON (S op -- ) 


CREATE , 
: CODE  (S real real -- t/f ) 
W INC W INC 
O [W] DX MOV \ Code opération dans DX 


PUTX #) CALL PUTY #) CALL 
FINT INT  PSEG #) ES MOV 
AREA #) W MOV ES: 25 [W] AL MOV 
\ On récupère le contenu de la variable RESULTAT 
AH AH XOR  1PUSH 
END-CODE 


\ Opérations en virgule flottante 


DECIMAL 

3 DYADIC F+ 4 DYADIC F- 
5 DYADIC F* 6 DYADIC F/ 
7 DYADIC F° 


8 COMPARISON F= 9 COMPARISON F<> 
10 COMPARISON F> 11 COMPARISON F< 
12 COMPARISON F>= 13 COMPARISON F<= 


14 MONADIC INV 15 MONADIC FNEGATE 
16 MONADIC FABS 17 MONADIC SIN 

18 MONADIC COS 19 MONADIC TAN 

20 MONADIC ASIN 21 MONADIC ACOS 

22 MONADIC ATAN 23 MONADIC INT 

24 MONADIC FRAC 25 MONADIC 2 

26 MONADIC SQR 27 MONADIC LN 

28 MONADIC LOG 29 MONADIC EXP 


HEX 
: ROUND (S real -- n ) 
ASM[ 
1F # DX MOV  PUTX #) CALL 
FINT INT AREA #) W MOV 
ES: 23 [W] AX MOV  \ Résultat 
AX PUSH 
ES: 1F [W] AX MOV  \ Code d'erreur 
1PUSH 
JFORTH " Dépassement entier!" ROT ?ERROR ; 


: FLOAT (S n -- real } 


ASML K DX MOV 
AREA #) W MOV  PSEG #) ES MOV 
AX POP \ On récupère n... 
ES: AX 23 [W] MOV  \... que l'on transmet au PASCA 
2 # AX MOV \ Code opération... 


ES: AX 21 [W] MOV \... stocké 
DX W MOV  FINT INT  GETX #) JMP 
]FORTH DROP ; \ Pas d'erreur possible dans ce cas 
DECIMAL 


\ Mot & 
CODE (FLIT) 
AX LODS AX DX MOV 
AX LODS AX CX MOV 
AX LODS AX PUSH 
CX PUSH  DX PUSH NEXT 


END-CODE 


: FLITERAL 
STATE @ 
IF 
COMPILE (FLIT) F, 
THEN ; IMMEDIATE 


: & \ (S < real > -- real ) 
BL WORD COUNT VAL [COMPILE] FLITERAL :;  IMMEDIATE 

\ Constantes utiles... 

& 3.1415926538979 FCONSTANT PI 

& O FCONSTANT &0 

& 1 FCONSTANT &1 

& 2 FCONSTANT &2 

& 1 EXP FCONSTANT &E EH 


COURRIER: 


- À plusieurs occasions sont apparus dans JEDI des bouts 
de module traitant des structures CASE... améliorées. 
J'avais moi-même déjà pondu quelque chose dans ce genre où 
Je traite en plus des ensembles. À ce propos, je ne suis 
pas d'accord pour employer Ve mot ensemble à la place 
d'intervalle, cf JEDI 42. Je vous envoie donc mes 
résultats. 

- À propos du serveur SAM*JEDI: pas de problème ça marche, 


mais les fichiers ASCII ne pourraient-ils pas être 
compactés par un utilitaire comme ARC que tous ceux qui 
font du téléchargement sur PC disposent (?). De plus, 
serait-il possible de savoir quelle version il faut 


utiliser de TURBO pour pouvoir les compiler. Exemple: pour 
le programme de compactage de M. ZUPAN; il utilise deux 
mots START et >VIEW qui ne sont pas dans ma version de 
TURBO mais sont dans le F-83 de Laxen et Perry. Ca 
m'étonnerait que Michel utilise cette versio car il est aux 
premières loges pour avoir la dernière version. 

- Quelqu'un aurait-il un désassembleur 8086-88 en Forth! 
de suis en train de m'en faire un, mais comme en même temps 
j'apprends l'assembleur: ça ne va pas vite. 


J.L. SIRET 72460 SAVIGNE L'EVEQUE 


REPONSE : 

- Merci pour votre version améliorée de CASE. Elle est 
diffusée un peu plus loin. 

- Nous diffusons les programmes en clair sur SAM*JEDI, du 
moins en ce qui concerne les fichiers source: pas tout le 
monde dispose du programme ARC (essayez de le trouver en 
disk 3'1/2 pour OLIVETTI PC ou AMSTRAD portable...). Un 
fichier ASCII peut être capturé par un autre système qu'un 
PC ou compatible; en effet, TURBO-Forth peut être implanté 
sur d'autres systèmes. Enfin, SAM*JEDI est le seul serveur 
à diffuser des programmes en "freeware" et en code source. 
Tout les autres diffusent en compacté et seulement en 
exécutable et parfois nécessitent un utilitaire particulier 
d'éclatement et de décompactage (ex: 3616 VIFI). Nota: le 
temps de transfert d'un fichier indiqué par SAM*JEDI est 
surestimé; 1 faut pratiquement le diviser par quatre; 
petite erreur qui sera corrigée en temps voulu. 

- Les fichiers sont exécutable avec la seule version de 
TURBO-Forth existante à ce jour: la version définitive. 
TURBO est maintenant  bétonné: toute modification, 
amélioration ou correction sera signalée dans JEDI (exemple 
JEDI 42, page 18). 


LISTING: 
À ARR ROHAN TNT AIINNNNNNN IAA 
\ Mise en oeuvre de structures de contrôle améliorées 
à la façon PASCAL 

À etienne eo ee MED MERE MESRINE HMHNNNNENNNNERAOK 
ONLY FORTH DÉFINITIONS DECIMAL 
\ Pour mettre en oeuvre un intervalle: 
\  2PICK sert à récupérer le nombre à tester 
: 2PICK >R >R DUP R> R> ; 
: ..0F COMPILE 2PICK COMPILE BETWEEN COMPILE ?BRANCH 

>MARK COMPILE DROP : IMMEDIATE 


\ Pour mettre en oeuvre limité par un seul nombre 
\et l'infini négatif, les autres possibilités se feraient 
\ de même en remplaçant < par > ou >= etc... 


: <OF COMPILE OVER 
?BRANCH 
>MARK COMPILE DROP ; IMMEDIATE 


COMPILE -ROT COMPILE < COMPILE 


\ Pour mettre en oeuvre les ensembles 
\ (valeurs discètes continues) 
\ 1ère façon les nombres restent s - la pile: lourd à 
\ écrire s'il y en a beaucoup 
VARIABLE PILE : {{ SP@ PILE ! :; 
: }} PILE @ SP@ - 2/ DUP PICK SWAP 1- O O -ROT 
?D0 >R DUP ROT = R> OR LOOP NIP ; 
: }}OF COMPILE }} COMPILE ?BRANCH >MARK 
COMPILE DROP ; IMMEDIATE 


\ 2ème façon où les valeurs sont contenues dans un tableau 
\ 8 bits. Ces valeurs sont entrées lors de la déclaration 
: ENTREN BL WORD NUMBER DROP ; ( pour des nombres ) 

: ENTREA [COMPILE] ASCII ; ( pour des codes ASCII) 


: :CRETAB 
CREATE DUP C, O ?D0 ENTREA C, LOOP 
DOES> COUNT : 
4 :CRETAB TABESS * / + - ( par exemple) 
: }}2 O O0 -ROT 


?D0 I SWAP >R >R 2DUP R> + C@ = R> OR LOOP 
NIP ; 
: }JOF2 COMPILE }}2 COMPILE ?BRANCH 
>MARK COMPILE DROP ; IMMEDIATE 
EOF \ Enlever EOF pour exécuter la suite 
: ESSAI BEGIN KEY DUP . CASE 
ASCII À OF ." C'est un À " ENDOF 
ASCII B ASCII Z ..0F ." majuscule entre B et Z " ENDOF 
ASCII O ASCII 9 ,..0F ." c'est un chiffre " ENDOF 
{{ ASCII + ASCII - ASCII * ASCII / }}OF 
." c'est un signe d'opération "  ENDOF 
ASCII © OF ." c'est un ° " ENDOF 
ASCII a ASCII z ..0F ." c'est une minuscule " ENDOF 
32 <0F ." code inférieur à 32 " ENDOF 
." sûr que ça existe ça ? " 
ENDCASE CR ASCII A = UNTIL ; 


: ESSAI2 BEGIN KEY DUP DUP . CASE 
ASCII À OF ." C'est un A " ENDOF 
ASCII B ASCII Z ..0F ." majuscule entre B et Z " ENDOF 
ASCII O ASCII 9 ..0F ." c'est un chiffre " ENDOF 

TABESS }}0F2 ." c'est un signe d'opération " 

ASCII ° OF ." c'est un ° " ENDOF 
ASCII a ASCII z ..0F ." c'est une minuscule " ENDOF 
32 <0F ." code inférieur à 32 " ENDOF 
." rien de répertorié " 
ENDCASE CR ASCII A = UNTIL : 

\ NOTE: sur F83 et ATMOS il faut faire par exemple: 

\ : ..0F 4 ?PAIRS puis de COMPILE 2PICK ... à DROP 

\ puis mettre à la fin 5 : 


ENDOF 


Turbo-PROLOG 


CARNET D'ADRESSE A ACCES CODE 


par Nicolas BRUN 


pour : PC et compatibles, avec TURBO-Prolog 
diffusion  : 3615 SAM*JEDI, programme ADRS. PRO 


ADRS.PRO est un carnet d'adresse doté d'une clé d'accès, 
permettant Ta sauvegarde sur disque des noms, prénoms, 
adresses et numéros de téléphone de vos relations ainsi 
que des commentaires sur ceux ci. 


Lancer ADRS. L'écran devient rose et, le programme vous 
demande Te code d'entré (123 pour la version compilée). Si 
vous utilisez Île fichier source en turbo prolog, il vous 
seras facile de le remplacer par un autre (Voir le fichier 
source); si le code est faux, le programme s'interrompt. 
Une fois 1e code entré, l'écran devient vert et affiche le 
menu principal. 


Le choix (1), permet de charger la base de données mais, 
quand ce fichier (ADRS.DBA) n'est pas dans le répertoire 
courant Île programme s'arrête. En effet, il n'est pas 
possible de charger une base qui n'existe pas; celle ci 
est créée par la combinaison des fonctions (2) et (5). 
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ATTENTION, le chargement plusieurs fois de suite de la 
base de données pendant une meme séance de travail, 
duplique les données en mémoire puis dans votre fichier, ce 
qui mene vite à une saturation du programme. 


CREATION DE LA BASE DE DONNEES: 


Sélectionner (2), cette fonction permet d'ajouter des 
adresses à la base de données et de la créer. Les données 
sont d'abord stockées en mémoire puis sauvegardées sur 
disque lorsque l'on quitte Île programme par la fonction 
(5). Un menu indique Ja marche a suivre; créez quelques 
fiches puis sélectionnez (6) pour retourner au menu 
principal. 


Consulter Va base de données: sélectionner (3); cette 
fonction recherche dans la base les adresses stockées. Un 
menu demande le nom et le prénom de la personne recherchée 
et renvoie son adresse. Essayez avec les noms que vous avez 
stockés puis sélectionnez (6) pour retourner au menu 
principal. 


LISTING: 
/* ADRS.PRO, carnet d'adresse a accès codé */ 


database 
adresse(symbol, symbol, symbol, symbol, symbol) 


predicates 


| 
Effacer un élément de a base de données: cette fonction 


(4) procède de la même façon que la fonction de recherche, 
mais l'adresse trouvée est effacée de la base de données. 
Si vous effacez par mégarde un élément de la base et, que 
celle-ci a été sauvegardée, il est possible en quittant le 
programme de recupérer cette en renommant le fichier 
ADRS. BAK en ADRS. DBA) 


Quitter le programme: Ta fonction (5) 
possibilités; elle permet la sauvegarde de 
données sur le disque ou de TÎla créer si elle n'existait 
pas. Elle permet aussi la sauvegarde de l'état précédent 
de la base dans un fichier de type BAK et permet enfin de 
quitter le programme. 


a plusieurs 
la base de 


ATTENTION, quand vous quittez le programme et que vous 
n'avez pas chargé la base auparavant, (si elle existait 
bien sûr), vous allez effacer le contenu du fichier 
ADRS.DBA. Si tel est le cas, une fois sorti du programme, 
renommez le fichier ADRS.BAK en ADRS. DBA. 


ADRS. PRO 


test(integer) /* ce predicat verifie la validite du code d'entrée */ 


code /* celui la lance le programme */ 
go /* celui ci affiche le menu principal */ 


choix integer) /* ce dernier sert a appeler les sous fonctions */ 


clauses 


code :- 
clearwindow,window_attr(79), 
cursor(5,21), 


write("Carnet d'adresse a accès protègé V 1.3 "nl, 


cursor(6,21), 
write(" 
cursor(10,21), 
write("Entrez votre numero d'identification: "js 
readint(X),test(X). 

test(X) :- 
X = 123, go. 

test(X) :- 
X <> 123 , exit. 


nicolas Brun, mai 1988"), 


/* vous pouvez remplacer le code 123 par Île votre pourvu qu'il soit compris 


entre -32768 et 32767 */ 


go : 
clearwindow,window_attr(47),n1,n1, 
write(" 
nl,nl,nl, 
write(" 
nl,nl,nl, 
write(" 
go :- 
go. 


choix(X) :- 
X > 6,go. 

choix(X) :- 
X=0, go. 

choix(2}) :- 
clearwindow,window_attr(71), 


CONSULTATION DU CARNET D'ADRESSE "), 
(1) Charger la base (2) Ajouter (3) Chercher (4) Effacer (5) Quitter"), 


Entrez votre choix: "),readint(X),choix(X). 


write("Vous voulez AJOUTER une adresse a votre carnet"), 


nl, 


write(" validez chaqu'une de vos entrées par <RETURN>,"), 


nl, 

write("Entrez le Nom: "), 
readin(N),n1, 

write("Entrez le Prenom: "), 
readin(P},nl, 

write("Entrez l'Adresse: ")}, 
readin(A}),nl, 

write("Entrez le numero de Telephone: SE 
readin(T}),nl, 

write("Entrez les Commentaires: "), 
readin(C},n1, 
asserta(adresse(N,P,A,T,C)), 
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goal 


write(" (2) Ajouter une autre adresse (6) Menu principal "}, 
nl,nl, 
write(" Entrez votre choix: "}, 
readint(X},choix(X). 
choix(3) :- 
clearwindow, 
window attr(23), 
write("Vous voulez CHERCHER une adresse dans votre carnet"), 
nl, 
write(" validez votre entrée par <RETURN>,"}, 
n1, 
write("Entrez 1e Nom de la personne recherchée: "), 
read1n(N),n1, 
write('"Entrez le Prenom de la personne recherchée: ")}, 
read1n(P),nl, 
adresse(N,P,A,T,C), 
clearwindow, 
write("L'adresse de: ",P," "NN," est: ") 
nl,nl, 
write(P," ",N),nt, 
write(A),nl, 
write("Telephone: ",T}),nl,nl, 
write("Commentaire: ",C),nl,nl, 
write(" (3) Chercher une autre adresse (6) Menu principal ")}, 
nl,nl, 
write(" Entrez votre choix: "}, 
readint(X),choix(X). 


choix(3) :- 
clearwindow, 
write("I1 n'existe pas de personne portant ce nom dans votre carnet"), 
nl, 
write(" (3) Chercher une autre adresse (6) Menu principal "}, 
nl,ni, 


write(" Entrez votre choix: "), 
readint(X),choix(X). 
choix(3) :- 
choix(3). 
choix(4) :- 
clearwindow,window_attr(87), 
write("Vous voulez EFFACER une adresse dans votre carnet"), 
n1, 
write(" validez votre entrée par <RETURN>,"), 
nl, 
write("ATTENTION, CE CHOIX EST IRREMEDIABLE"}),nl,n1, 
write("Entrez 1e Nom puis le prenom de la personne que vous vouler effacer: "}, 
readin(N),nl,readin(P), 
adresse(N,P,A,T,C), 
clearwindow, 
write("L'adresse effacée est: ") 
n1,ni, 
write(P," M",N),n1, 
write(A),nl, 
write("Telephone: ",T}),nl,nl, 
write("Commentaires: ",C),nl,n1, 
retract(adresse(N,P,A,T,C)), 
write(" (4) Effacer une autre adresse (6) Menu principal "), 
nl,nl, 
write(" Entrez votre choix: "}, 
readint(X),choix(X). 


choix(4) :- 
clearwindow, 
write("I1 n'existe pas de personne portant ce nom dans votre annuaire"}, 
ni, 
write(" (4) Effacer une autre adresse (6) Menu principal "}, 
nl,nl, 


write(" Entrez votre choix: "}, 
readint(X)},choix(X). 

choix(4) :- 
choix(4). 


choix(5) :- 
system("del adrs.bak"), /* ce predicat effectue la maintenance */ 
system("ren adrs.dba adrs.bak"),/* du fichier de données de la base */ 
save("adrs.dba"),exit./* ainsi que sa creation quand il n'existe pas */ 


choix(6) :- 
go. 
choix(1) :- 
consult("adrs.dba"),go. /* ce predicat charge la base de donné */ 


code 


Jedi N°$4. AVAL 88 


FORTH 
MULTI-FENETRAGE TURBO-Forth 
par Michel ZUPAN 

pour : PC et compatibles 
diffusion +: 3615 SAM*JEDI 

et module M4 TURBO-Forth (en préparation) 
LISTING: WINDOWS. FTH 
HEX 


B800 800 40 10 LC@ 30 AND 30 = * + 

O Z2CONSTANT VIDEO 
( la configuration détermine la mémoire vidéo en) 
( B800:0000 ou B000:0000 ) 
DECIMAL 
80 CONSTANT #COL \ écran: nombre de colonnes 
25 CONSTANT #LIN \ écran: nombre de Tignes 
VARIABLE WDO# \ fenêtre courante 
VARIABLE WIDE \ largeur fenêtre courante 
VARIABLE HIGH \ hauteur fenêtre courante 
VARIABLE VISILIN \ nombre de lignes à caïlquer 
VARIABLE VISICOL \ nombre de colonnes à caïquer 
VARIABLE VISI-X \ position colonne du calque 
VARIABLE VISI-Y \ position ligne du calque 


: CORNER € -- x y ) 
\ position du coin haut-gauche de la fenêtre 
WDO# @ 2+ DUP @ SWAP 2+ @ ; 


+ INTERVAL € x 1 max -- x 1 ) 
\ primitive de découpe d'un calque 
>R OVER O MAX -ROT + R> MIN OVER - ; 


: CACHE € -- ) 
\ découpe d'un calque visible de la fenêtre courante 
CORNER HIGH @ ALIN INTERVAL VISILIN ! VISI-Y ! 
WIDE @ #COL INTERVAL VISICOL ! VISI-X ! ; 


: TRANSFER ( c1 segl adr1 c2 seg2 adr2 -- ) 
\ transfert de zones 
VISILIN @ O> VISICOL @ O> AND IF 
VISILIN @ O DO 
4 PICK 4 PICK 7 PICK I * 2* + 
3 PICK 3 PICK 6 PICK I * 2* + 
VISICOL @ 2* LCMOVE LOOP 
THEN 2DROP 2DROP 2DROP ; 


: SIGHT ( -- cols seg adr ) \ zone d'affichage 
WIDE @ DSEGMENT 
WDO# @ 6 + 
CORNER VISI-Y @ SHAP - WIDE @ * 
VISI-X @ ROT - + 2* + ; 


: VISIBLE ( -- cols seg adr ) 
\ zone affichable d'une fenêtre 
#COL VIDEO 
VISI-Y @ #COL * VISI-X @ + 2* + ; 


: WDOBUF ( -- cols seg adr ) 

\ zone tampon plan postérieur de SIGHT 
VISICOL @ DSEGMENT 
WDO# @ WIDE @ HIGH @ * 2* 6 + + ; 


\ mots utilisateur 
: WINDOW ( largeur hauteur -- ) \ définition d'une fenêtre 
2 ?ENOUGH 
CREATE OVER C, DUP C, \ hauteur, largeur 
0,0, \ position colonne, ligne 
OVER #COL MIN OVER #LIN MIN * 
-ROT * + 2* 
HERE OVER ALLOT SWAP BLANK 
DOES> DUP C@ HIDE ! DUP 1+ C@ HIGH ! WDO# ! CACHE ; 


: AT# ( x y -- } \ positionne en x,y la fenêtre courante 
WDO# @ TUCK 4 + ! 2+ ! CACHE ; 


: OPEN# ( x y -- ) \ ouvre la fenêtre courante 
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VISIBLE WDOBUF TRANSFER 
SIGHT VISIBLE TRANSFER ; 


: CLOSE# ( -- ) \ ferme la fenêtre courante 
WDOBUF VISIBLE TRANSFER ; 


: TAKE# ( -- ) \ initialise la fenêtre avec l'écran 
VISIBLE SIGHT TRANSFER ; 


EOF \ supprimer EOF pour exécuter les exemples 
\ Démonstration de WINDOWS (monochrome) 
echo off 
DECIMAL 
: TEMPO 10000 0 DO LOOP ; \ ralentit les mouvements 
: ATTFILL# ( att -- ) \ remplit la fenêtre courante avec 
attribut att 
WDO# @ 5 + WIDE @ HIGH @ * O DO 2+ 2DUP C! LOOP 2DROP ; 


40 11 WINDOW WIN1 


DARK 

.( ) 
CR .( | Voici la fenêtre d'essai n° 1 ) 
CR .( ) 
CR .( | Une fenêtre est un espace affichable |) 
CR .( | qui se superpose à l'écran quand on |) 
CR .( | l'ouvre et qui restitue celui-ci |) 
CR .( | quand on la ferme. ) 
CR .( ) 
CR .( | Une fenêtre peut être positionnée |) 
CR .( | à n'importe quel endroit de l'écran. |) 
CR .( ) 
WINT TAKE# 


: 15 O DO I 2* I AT# OPEN# TEMPO CLOSE# LOOP ; OPEN# 
128 5 WINDOW WIN2 
0 O AT 

AC — —————) 
CR .( | Fenêtre n°2 : 128 colonnes / 5 lignes : 
gauche 
CR .( | Une fenêtre peut avoir des dimensions supérieures 
à celles de ) 
CR .( | Dans ce 
visible posée s) 
CR 

CO ——_—_— —————— ———————) 
WIN2 TAKE# O O AT 

À —— ————————) 
CR .( 
partie droite D) 
CR .( l'écran en largeur comme en hauteur et être déplacée 
partout. |) 
CR .( ur la fenêtre surdimensionnée pour des applications 
spéciales. |) 
CR .( 


ac 
——) 

-64 O AT# TAKE# 

WINT CLOSE# 18 8 AT# OPEN# WIN2 

:: 19 0 DO I 3 * 64 - I AT# OPEN# TEMPO CLOSE# LOOP ; 
OPEN# 
26 3 WINDOW WIN3 O O AT 


{ ) 
CR .( ) 


WIN3 TAKE# KEY DROP 15 ATTFILL# 


partie 


cas c'est l'écran qui est une fenêtre 


DARK 

.( ) 
CR .( | Fenêtre n°4 | ) 
CR .( | la position |) 
CR .( | d'une fenë- | 
CR .( | tre peut ) 
CR .( | sortir de ) 
CR .( | 1'écran.Les | 
CR .( | coordonnées |) 
CR .( | peuvent ) 
CR .( | être néga- ) 
CR .( | tives. La ) 
CR .( | seule par- ) 
CR .( | tie visible {) 
CR .( | est placée ) 
CR .( | sur l'écran |à) 
CR .( ) 
CR .( ) 


16 17 WINDOW WIN4 WIN4 TAKE# 

DARK 

:: 30 O DO I O AT# OPEN# CLOSE# LOOP ; 

29 3 AT# OPEN# 

WIN3 48 20 AT# OPEN# KEY DROP CLOSE# 

WIN1 10 7 AT# OPEN# 

HIN3 50 18 AT# OPEN# KEY DROP CLOSE# 

WIN1 CLOSE# WIN4 CLOSE# WIN1 OPEN# WIN4 OPEN# 
WIN3 O 4 AT# OPEN# KEY DROP CLOSE# 

WIN2 5 14 AT# OPEN# 

HIN3 1 12 AT# OPEN# KEY DROP CLOSE# 

HINT OPEN# 

WIN3 30 12 AT# OPEN# KEY DROP CLOSE# 

HIN2 CLOSE# 

WIN1 OPEN# CLOSE# 112 ATTFILL# 30 12 AT# OPEN# 
WIN3 43 22 AT# OPEN# KEY DROP CLOSE# 


WIN1 CLOSE# 
40 11 WINDOW WIN5 
WINS 


:: 8 O DO 10 10 AT# TAKE# 10 9 AT# OPEN# TEMPO TEMPO LOOP :; 
FORGET TEMPO 

0 14 AT .( curieuses ces 2 fenêtres télescopées, non ? ) cr 
ECHO ON 

EOF \ Fin du listing d'essais 


Une fenêtre est un objet très simple en FORTH. I1 s'agit 
d'un espace affichable de l'écran vidéo qui se "superpose" 
à celui-ci quand on l'ouvre et qui le restitue quand on le 
ferme. Cet espace est mémorisé avec tous ses attributs 
d'affichage dans Te corps (pfa) du mot désignant une 
fenêtre. La dimension d'une fenêtre en nombre de colonnes 
et de lignes peut dépasser celle de l'écran. Sa position 
est variable dans le plan étendu de l'écran. Seule la 
partie visible de la fenêtre entre Îles colonnes 0-79 et 
entre les lignes 0-24 de l'écran est affichée. La fenêtre 
possède un tampon d'écran conservant l'arrière-plan 

lors de son ouverture. Cette zone tampon est dimensionnée à 
la plus grande sous-fenêtre  affichable selon Jes 
dimensions propres de la fenêtre complète. 


L'utilisateur n'a besoin que de 5 mots pour gérer un 
environnement complexe de fenêtres affichables : 


x y WINDONWN <nom-de-fenêtre> définit une fenêtre de x 
colonnes et de y lignes. À l'exécution du <nom-de-fenêtre> 
cette fenêtre devient Tla fenêtre courante sur laquelle 
s'exercent Tes mots suivants pour la positionner, la 
remplir, l'ouvrir ou la fermer. Lors de sa définition la 
position d'une fenêtre est initialisée en 0,0 (coin haut 
gauche de l'écran) et son contenu est vide. 


x y AT# positionne en colonne x et ligne y la fenêtre 
courante. Ces coordonnées peuvent sortir des limites 
physiques de l'écran: x et y peuvent être négatifs, x peut 
dépasser 79, y peut dépasser 24, Ces 2? derniers cas 
impliquent évidemment qu'aucune portion de la fenêtre ne 
sera affichée lors de son ouverture. 


TAKE# ( -- ) initialise le contenu d'affichage d'une 
fenêtre sur ce que contient l'écran à ce moment-là à la 
position définie de la fenêtre courante. Si les dimensions 
de la fenêtre dépassent celles de l'écran, il faudra plus 
d'une procédure TAKE# pour la remplir en variant sa 
position AT# en dehors de 1'écran. 


Pour des applications compilées comportant des fenêtres 
prédéfinies, utilisez en interprétation l'affichage par 
.( ...) pour éditer la fenêtre puis chargez-la avec un ou 
plusieurs TAKE#. 


OPEN# ( —- 
courante. 


) ouvre la fenêtre courante à sa position 


CLOSE# ( -- ) ferme la fenêtre courante en restituant 
l'écran tel qu'il était avant son ouverture. 


techniques pour développements 
ultérieurs tels que sauvegarde sur disque d'une fenêtre, 
modifications des attributs, édition directe dans une 
fenêtre, redirection de l'affichage dans Île cadre restreint 
d'une fenêtre à l'écran: 


Quelques précisions 


Le PFA d'une fenêtre est ainsi organisé: 


pfa : largeur de la fenêtre (maximum 255 colonnes) 
pfa+1 : hauteur de la fenêtre (maximum 255 lignes) 
pfa+2 : position 1ère colonne sur 16 bits signés 
col. écran) 
pfat4 : position 1ère ligne sur 16 bits signés (0=1ère 
ligne écran) 


(0=1ère 


pfa+6 : contenu de la fenêtre qui occupe T1 octets. 
T1 = largeur * hauteur * 2 (avec les attributs) 
pfa+T1: zone tampon d'écran qui occupe T2 octets 


(T2 <= T1) 
T2 = min(largeur,80) * min(hauteur,25) * 2 


Dans chaque champ T1 et T2, le premier octet garde le 


caractère ASCII étendu, le deuxième garde l'attribut 
couleur ou monochrome dudit caractère. 
Le mot TRANSFER ( c1 seg1 adrl c2 seg? adr2 -- ) réalise 


toutes les opérations de transfert vers ou depuis l'écran. 
11 opère le déplacement de VISILIN Tignes fois VISICOL 
colonnes depuis une zone située en segl:adr1 organisée en 
cl colonnes vers une zone seg2:adr? organisée en c? 
colonnes. 


Sur certains systèmes, la répétition rapide de TRANSFER 
directement dans Ta mémoire vidéo peut provoquer des 
phénomènes de scintillement. 


LA BIBLIOTHEQUE GEM DU VOLKSFORTH83 


par F.1.G. HAMBURG (RFA) 
Traduction B. THILLAYS 


pour: VolksFORTH ATARI ST 


Cette version du VolksforthB3 contient une bibliothèque 
complète de routines GEM. Cette bibliothèque se compose de 
la partie AES ("Application Environment System") et VDI 
("Virtual Device Interface"). On trouve aussi dans le 
volksFORTH 1a partie BASICS contenant la partie commune à 
AES et VDI. 


Les noms des mots GEM disponibles correspondent aux 
routines C habituellement contenues dans les kits de 
développement. Nous avons néanmoins abandonné la plupart 
des préfixes pour économiser de la place en mémoire. Ces 
mots nécessitent les mêmes arguments, sauf ceux qui sont 
superflus. Certains programmes fournissent tellement de 
paramètres que mous avons préféré ne pas les mettre tous 
sur la pile. Dans ce cas il faut aller les chercher dans 
la table correspondante, ce que l'on trouvera dans la 
littérature appropriée. Les valeurs d'entrée restent sur 
la pile, (sous le nom de EVNT MULTI). 


Si vous êtes intéressé par la programmation GEM, consultez 
la documentation du kit de développement ATARI, Vous y 
trouverez (presque) toutes les fonctions (et beaucoup de 
fautes). La qualité n'est pas extraordinaire, en 
comparaison de celle pour IBM PC. 


On peut aussi se réferer au manuel du compilateur C 
Megamax, bien qu'il soit également insuffisant. 


Pour programmer sous GEM, un "Resource Construction Set" 
est nécessaire. C'est un programme qui permet la création 
d'icones, de menus déroulants, fenêtres d'alerte et de 
dialogue. Ce programme créé un fichier avec l'extension 
"RSC" (fichier ressource) et un fichier ".H" permettant 
une liaison avec des programmes "C". Ce fichier contient 
donc les constantes relatives à chaque objet (un objet 
étant la plus petite subdivision d'un fichier 
“ressource"), qui doivent être compatibles avec votre 
programme Forth. Pour illustrer îles différences, comparez 
le fichier EDIICON.H (C) avec EDIICON.SCR Un "Resource 
Construction Set" fait habituellement partie du kit de 
développement "C" (Megamax). 


PRESENTATION DES MOTS GEM DU VOLKSFORTH 
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La bibliothèque GEM se compose de BASICS.SCR, VDI.SCR et 
AES.SCR. Nous présenterons Îles mots appartenant à ces 
fichiers, puis une bibliothèque de “super-mots" facilitant 
la manipulation des routines GEM. 


LISTING PARTIEL DU FICHIER BASICS.SCR 


Vocabulary GEM GEM definitions also 

\Le vocabulaire qui contient les mots GEM. 
Create intin $100 allot Create ptsin  $100 allot 
Create intout $100 allot Create ptsout $100 allot 
Create addrin $100 allot Create addrout $100 allot 
\ Ces tables sont utilisées pour divers paramètres. 

\ Leur taille peut varier, mais elle est réduite 

\ actuellement au minimum. 


Variable grhandle 
\ Cette variable stocke la donnée fournie par OPNVKK. 


Create contrl  $16 allot 
contrl 2 gemconstant opcode 
2 gemconstant #intin 
2 gemconstant #intout 
2 gemconstant #addrin 
2 gemconstant #addrout 
2 gemconstant function 
Les composantes de cette table contiennent 1e nombre de 
paramètres transmis par Îles tables de meme nom. 


* #Hintout Alias #ptsout 


\ 

\ 

3 Create global $1E allot 

\ Cette table contient les valeurs décrivant 

\ l'application. 

addrout addrin intout intin global contrl 6 gemarray AESpb 
ptsout intout ptsin intin contri 5 gemarray VDIpb 

\ Ces deux tables contiennent les pointeurs des tables 

\ contenant les paramètres..... 


Code array!  ( n0 ... nk-1 adr k --) 

\ Stocke les k valeurs à partir de l'adresse adr dans 
\ une table. 

Code 4! ( nl. n4 addr -- } 

Code 4@ ( addr -- n1 .. n4 ) 

\ charge et lit les 4 valeurs à partie de adr. Utilisé 
\ pour stocker et lire des rectangles dans les tables. 


Code AES 

( opcode #intin #intout #addrin #addrout -- intout@) 

\ Gère tous les appels AES. 

Code VDI ( opcode #ptsin #intin --) 

\ Gère tous les appels VDI. 

: appl init 

\ _Initialise une application, et doit être appelé à 

\ chaque premier appel d'une fonction AES. 

: appl_ exit 

\ Ferme une application. 

Create sizes 8 allot 

\ Cette table contient la taille de la matrice-caractères 
\ en pixels. 

: graf handle 

\ Charge la VDI-Handle dans la variable GRHANDLE et la 
\ taille de la matrice-caractères dans SIZES 
sizeconstant cwidth sizeconstant cheight 
sizeconstant bwidth sizeconstant bheight 
\ Noms des éléments des tables SIZES. Leur execution 

\ fournit les adresses correspondantes. 


: opnvwk 

\ ouvre une "virtual workstation" et doit être executé 
\ obligatoirement. 

: clrwk 

\  Efface la Workstation. Remplit l'écran avec la couleur 
\ de fond. 

: ciswwk 

\ Ferme la "virtual workstation". Doit être appelé 

\ juste avant la fin d'un programme. 


: updwk 

\ Met à jour la "virtual workstation". Attend la fin de 
\ toutes les comnandes VDI en cours. 

: s clip (xl y1 x2 y2 clipflag -- ) 

\ Fixe la taille et la position du "Clipping rectangle" 
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\ (zone de capture souris) pour tous les appels VDI. 

;s grinit appl_init graf_handle opnvwk ; 

\  Effectue tous les appels nécéssaires pour ouvrir une 
\ application. 

: grexit clsvwk appl exit  ; 

\ Idem pout la fin d'une application. 

2Variable objc tree 

\ Contient l'adresse de l'arbre-objet, auquel se: 

\ rattachent les mots des librairies Menus Objet et 

\ Forme. En "C", il faut executer chacun de ces mots 
\  independamment. 

Variable c_flag 

\ Dit si les appels de SHOW C et HIDE C peuvent être 
\ accumulés. de à 


: show c (-——) 
\ montre la souris 
: hide c {€ -- ) 


\ cache la souris 
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Event : 

: evnt keybd  ( -- key ) 

\ Attend un évenement-clavier. key est constitué d'un 
\ code de scrutation et d'une valeur ASCII. 

: evnt_ button ( #clicksO bmask bstate -— #clicks1 ) 


\ Attend un évenement-touche. #clicksO donne 1e compte 
de \ CLICS, bmask et bstate spécifient sur quelle 
touche. 


\ #clicksi est le nombre de clics recus. 

: evnt mouse  ( f leftX topY width height -- ) 

\ Attend un mouvement de la souris. f=1 pour l'entrée et 
\ f=0 pour la sortie dans le rectangle spécifié par 

\ _JeftX topŸ width et height. 

Create message $40 allot 

\ Cette table est le buffer d'évenement-message. 

: evnt mesag  ( -- ) 

\  Attend un évenement-message. 
: evnt_ timer ( dtime -- ) 

\ Attend un évenement timer. 
temps 

\ attendu en millisecondes. 
Create events 


dtime est Île double du 


\ Cette table contient les paramètres du mot EVNT MULTI. 
\ Le contenu de ce champ est le suivant: 7 

\ +0 : évenements reconnus: 

\ Bit 0 Clavier 

\ Bit 1 Touche 

\ Bit 2 Mouse rectangle 1 

\ Bit 3 Mouse rectangle 2 

\ Bit 4 Message 

\ Bit 5 Timer 

\ +2  #clicks0 

\ +4 bmask 

\ +6  bstate 

\ +8 f leftX topY width height 

\ #18 ------- M 

\ +28 dtime 

: prepare : 

\ Ce mot copie le contenu de EVENTS dans la table de 

\ paramètres correspondante. I1 doit être appelé avant 
\ EVNT MULTI. 

: evnt multi  ( -- which ) 

\ Ce mot attend un des evènements possibles, spécifiés 


\ dans la table EVENTS. "which" est le numéro de celui 
\ qui est apparu, selon la même clef que le premier mot 
\  d'EVENTS, Les paramètres de sortie doivent être 

\ compatibles GEM... 

: evnt dclick ( dnew dgetset -- dspeed ) 

\ Charge ou lit l'intervalle entre des clics multiples. 


\ dgetset = 1 signifie que dnew va être réinitialisé. 
\  dspeed est l'intervalle mesuré. 

Menu : 

: menu_bar ( showflag -- ) 

\ _Efface ou affiche la barre des menus. 

: menu _icheck ( item showflag -- ) 

\ Autorise ou pas l'accrochage d'un des éléments du 
\ menu. 

: menu jenable ( item enableflag -- ) 

\ Sélectionne ou non un des éléments du menu. 

\ Un élément non séléctionné apparait en gris. 


: menu tnormal ( title normalflag -- ) 

\ Affiche le titre du menu en video inverse où en normal. 
: menu text ( item laddr -- ) 

\ Change le texte d'un des éléments du menu. 

\ Sa longueur ne doit pas changer ! 

: menu register( apid laddr -- menuid ) 

\ _Installe un accessoire Desktop dans la liste des menus. 
\ "menuid" est la position dans le menu. 


Object : 
: objc add ( parent child -- ) 
\ _Assemble un objet enfant(child) à la fin de la liste 
\ enfant de l'objet parent. 
: objc delete ( object -- ) 
\  Efface un objet de l'arbre. 
: objc draw ( startob depth x y width height -- ) 
\  Redessine l'arbre partant de startob et de profondeur 
\  depth. x y width et height donnent un 
\  Clipping-Rectangle. 
: objc find ( startob depth x y -- obnum ) 
\ Cherche un objet à la position souris x y. Donne Île 
\ numéro de l'objet ou -1. 
: objc offset ( object -- x y ) 
\ Donne la position écran d'un objet. 
: obje order ( object newpos -- ) 
\  Déplace un objet à l'interieur de l'arbre. 
: objc edit ( object char index kind -- newindex ) 
\ Utilisé pour éditer un texte à l'interieur d'un objet. 
: objc change 
( object x y width height newstate redraw -- ) 
\ Modifie le status objet et redessine cet objet. 


Form : 

: form do ( tree startobj -- objectno ) 

\ Cette routine pointe un objet et permet à 

\ l'utilisateur de le modifier. objectno est le numéro 
\ de l'"exit-button". 

: form dial ( diflag lix liy Tiw Tih bix biy biw bih ) 
\ Cette routine se compose de 4 routines, et sa fonction 
\ est dictée par diflag: 

\ 0 Reserve une zone écran pour un objet. 
\ 1 Dessine une boite grandissante. 

\ 2 Dessine une boïte rêtrecissante. 

\ 3 Libère une zone écran réservée. 

: form alert ( defbttn Ostring -- exbttn ) 

\ Permet de construire des "boites d'alerte" de façon 

\ simple. defbttn est le bouton par défaut, Ostring est 
\ la chaine terminée par 0 qui caractérise la boite et 
\ exbttn est 1e bouton activé. 

: form error ( enum -- exbttn ) 

\  Dessine une boite d'alerte avec le texte: 

\ _"TOS-Fehler-Nummer ...." (erreur-TOS numéro ....) 

: form center ( Îtree -- x y width height ) 

\ Caïcule la position de l'objet centré au milieu de 

\ l'écran. 

Graphic : 


: graf dragbox 

( Startx starty width height boundx boundy 

boundw boundh -- finishx finishy ) 

\  Dessine le contour de la boite qui peut être déplacée 
\ par la souris sur l'écran. Le déplacement de la souris 
\ est restreint à un rectangle externe. 
: graf movebox 

( sourcex sourcey width height destx desty --) 
\ Dessine une boite se déplaçant de source vers dest. 
: graf_growbox (€ stx sty stw sth fix fiy fiw Fih -- ) 
\ Dessine une boite grandissante. 
: graf_shrinkbox (€ Fix fiy fiw fih stx sty stw sth -- ) 
\ Dessine une boite rétrecissante. 
: graf_watchbox 

( object instate outstate -- inside/outside ) 
\ Controle Île déplacement de la souris à l'interieur 
\ d'un objet... 
: graf_slidebox ( parent object vhflag -- vhpos ) 
\ Controle le glissement d'une petite boite sur une 
\ grande avec la souris... 
2Variable mofaddr 
\ Pointeur de forme-souris personnalisée. 


: graf_ mouse ( mouseform -- ) 


Etablit une forme-souris : 
0 Fleche 

1 Curseur 

2 Abeille 

3 Doigt-pointeur 

4 Main 

5 Croix fine 

6 Croix épaisse 

7 Croix avec contour 

255 Personnalisée 

256 souris invisible 

257 souris visible 

: graf_mkstate Ç -- ) 

Charge 1a position de la souris et des boutons dans 

les différentes tables. 


\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
\ 
x 
\ 
\ 


Fileselect : 


Create inpath 

\ Table contenant le PATH par défaut, terminé par un 

\ octet nul. 

Create insel 

\ Contient le nom du fichier sélectionné. 

: fsel_input ({ -- button ) 

\  Dessine la boite de sélection de fichiers et attend le 
\ choix de l'un d'eux. button est le bouton activé 

\ (0 = ANNULE) 


Window : 
: Wind create 


( components leftX topY maxWIDTH maxHEIGTH -- 
handle) 


\ Ce mot met en place une fenêtre de taille maximum 

\ avec tous ses éléments. Délivre un Handle propre à la 
\ fenêtre. 

: wind open ( W-handle 1eftX topY width height -- ) 

\  Dessine une fenêtre de taille spécifiée. 

: wind close ( Whandle -- ) 

\ Ferme puis efface une fenêtre. Elle peut être ensuite 
\ _réouverte. 

: wind delete ( Whandle -- ) 

\  Efface définitivement une fenêtre. 

: wind_get ( Whandle funktion# -- ) 

\ Donne toutes les informations sur une fenêtre.. 


wind_set ( Whandle funktion# parO pari par? par3 -- 
\ Met en place les attributs d'une fenêtre comme la 
\ ligne de titre, l'ascenseur etc. 
: wind_find ( mouseX mouseYŸ -- Whandle ) 
\ Recherche le handle de la fenêtre située sous la 
\ souris. 
: wind update ( funktion# -- ) 
\ Utilisé pour mettre à jour l'affichage lors de la 
\ manipulation de fenêtres ou de menus. 
: wind calc 
( 071 components 1eftX topY width height -- ) 
\  Convertit les dimensions interieures d'une fenêtre en 
\ extérieures(0) ou l'inverse (1). Le résultat est mis 
\ dans les tables GEM. 
RSRC : 
: rsrc_load ( addr -- ) 
\ needs address of O-terminated $ 
\ Charge un fichier ressource en mémoire. addr pointe 
une 
\ chaine terminée par 0. 
: rsrc_load" 
\ Charge le fichier ressource dont le nom (terminé par 
\ un ") suit ce mot. 
: rsrc_free (€ -- ) 
\  Libere une zone mémoire selon un fichier ressource. 
\ 


: rsrc gaddr ( type index -- Taddr ) 

Fournit l'adresse d'un objet dans le fichier 
ressource. 
: rsrc_ saddr  ( type index laddr --) 


\ Stocke en mémoire l'adresse d'un objet. 

: rsrc obfix ( index laddr --) 

\  Convertit un objet et la taille des caractères en un 
\ ensemble de pixels. 


EN N°48- Aya 8e 11 
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Fonction sortie 


Fonction Attribut : 


: swr_mode ( mode -- ) 
\ Définit le mode de sortie... 
; 
3 


Setmode replace 2 Setmode transparent 
Setmode exor 


s1_type ( style -- ) 

Définit le type des lignes... 
Settype solid 2 Settype longdash 
Settype dot 4 Settype dashdot 
Settype dash 6 Settype dashdotdot 
Settype userdef 


AVG Or 


s1 udsty ( pattern -- ) 


\  Définit le type des lignes personnalisées. 

: si width ( width -- ) 

\ Definit l'épaisseur des lignes. 

: s1 color ( color -- ) 

\ Définit l'index couleur des lignes. 

: sl ends ( begstyle endstyle -- ) 

\ Définit le style de fin de ligne. 

: sm_ type ( symbol -- ) 

\ Définit le type de polymarker 

1 Setmtype point 2 Setmtype plus 
3 Setmtype astérisque 4 Setmtype carré 
5 Setmtype croix 6 Setmtype diamant 


( color -- ) 
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: st_ color 


: pline Ç( xl y1 x2 y2 ... xn yn count -- ) 
\ Dessine une ligne brisée de x1,y1 à x2,y2 etc... 
: pmarker (xt y1 x2 y2 ... xn yn count -- ) 
\ Donne un Polymarker. 
: gtext ( addr count x y -- ) 
\ Affiche le texte aux coordonnées x y. 
: fillarea (xl y1 x2 y2 ... xn yn count -- ) 
\ Dessine un polygone coloré. 
: contourfi11 ( color x y -- ) 
\ Remplit la zone où se trouve x y. 
: r recfl ( x1 y1 x2 y2 -- ) 
\ 7 Dessine un rectangle sans bordure. 
: GDP { #ptsin #intin functionno -- ) 
\ Routine générale de dessin. 
: bar ( x1 y1 x2 y2 -- ) 
\ Dessine un rectangle plein avec bordure. 
: arc ( angle-départ angle-fin x y rayon -- ) 
\ Dessine un arc de cercle. 
: pie ( angle-départ angle-fin x y rayon -- ) 
\ Dessine une part de camembert (ou de tarte). 
: circle ( x y radius -- ) 
\ Dessine un cercle. 
: ellarc 
( angle-départ angle-fin x y rayon-x rayon-y -- ) 
\ Dessine un arc d'ellipse. 
: ellpie 
( angle-départ angle-fin x y rayon-x rayon-y -- ) 
\ Idem mais plein. 
: ellipse ( x y xradius yradius -- ) 
\ Ellipse entière. 
: rbox ( x1 y1 x2 y2 -- ) 
\ Rectangle à bords arrondis. 
: rfbox (xt y1 x2 y2 -- ) 
\ Idem mais plein. 
: justified ( string x y length wordspace charspace -- ) 
\ Affiche un texte justifié sur une longueur définie. 


4 Setmode revtransparent 


: sm height { height -- ) 

\ Définit la hauteur des polymarkers 

: sm color ( color -- ) 

\  Définit l'index couleur des polymarkers 

: st_height { height -- ) 

\ Définit la hauteur des caractères (absolue) 
: st_point { point -- ) 

\ Définit la hauteur des caractères (points) 
: st rotation ( angle -- ) 

\ Définit l'angle de rotation de la ligne de caractères 
: st _ font ( font -- ) 

\ Définit la police de caractères. 


\ Définit la couleur du texte 
: st effects ( effect -- ) 
\ Définit le style de l'écriture (gras, italique...). 
: st_ alignement { horin vertin -- ) 
\ Définit l'alignement des caractères 
: sf_interior { style -- ) 

\ Définit le style de remplissage intérieur 

: sf style { styleindex -- ) 

\ Définit l'index de style de remplissage 

: sf color { color -- ) 

\ Définit l'index de couleur de remplissage de 
polygones 

: sf_perimeter ( pervis -- ) 

\ Commute la fonction contours. 


Operations "RASTER" (déplacements de blocs): 


Les opérations "raster" servent à déplacer des zones 
écran, 

aussi bien sur l'écran lui-meme qu'entre celui-ci et la 
mémoire. 

11 s'agit donc de routines très rapides et il faut les 
utiliser chaque fois que l'écran doit être remis à jour. 
Toutes les autres routines d'affichage - du moins celles 
qui sont nécessaires - sont plus lentes. 


Variable >memMFDB 
Create scrMFDB 


Les blocs "Memory Form Definition" décrivent Ja 
constitution d'un bloc de pixels en mémoire ou sur 
l'écran. Pour pouvoir travailler avec plusieurs zones 
mémoire, >memMFDB possède un pointeur sur Ta zone 
courante. 


: copyopaque  ( Xfr Yfr width height Xto Yto mode --) 
\ Routine de base pour tous les déplacements. 


: scr>mem ( addr_of_merMFDB -- ) 
\ Mot de définition pour toutes les déplacements 
\ écran->mémoire 


: mem>scr ( addr_of_memMFDB -- ) 
\ Mot de définition pour toutes les déplacements 
\ mémoire->écran 


: scr>scr € Xfr Yfr width height Xto Yto --) 
\ Déplace un rectangle sur l'écran. 


Create memMFDB1 
\ Bloc mémoire pouvant sauvegarder l'écran courant. 


: scr>memi ( Xleft Ytop Width Heigth -- ) 
\ Sauvegarde l'écran en mémoire. 


: mem>scr1 ( Xleft Ytop Width Heigth -- ) 
\ Restitue l'écran mis en mémoire. 


: r trnfm ( -- ) 
\ Calcule les coordonnées standard selon la configuration 
\ de l'appareil et inversement. 


: get_pixel ( x y -- color flag ) 
\ Donne la couleur d'un pixel. Le flag est à 1 quand 
\ il y a un point. 


Entrée : 


: sin mode ( devtype mode -- ) 

\ Définit le mode d'entrée... 
: sm locater ( x y -- status ) 
\ Position de la souris, saisie de la position de 
\ départ le cas échéant. 

: sm valuator ( val_in -- status ) 
\ Gestion des modifications .... 
: sm choice ( -- status ) 

\ Test des touches de fonction. 
: sm_ string ( addr max len echomode x y -- status ) 
\ Saisie d'une chaine avec écho. 

: sc form { addr -- ) 

\ Sélectionne la forme de la souris. 

: ex_ time ( tim addr -- Tong otim addr ) 

\ Lance une nouvelle routine d'interruption-timer. 


( -- x y status ) 
tat de la souris. 


: q mouse 
\  Fournit l'é 

: ex butv ( pusrcode -- long psavcode ) 

\ Lance une routine d'interruption "touche-souris", 
: ex motv ( pusrcode -- Jong _psavcode ) 

\ routine d'interruption des déplacements 

\ de la souris... 

: ex curv ( pusrcode -- long psavcode ) 

\  Routine d' a de gestion de forme 

\ de la souris. 

\ 


: q key s € -- faite ) 

Fournit l'état des touches Shift. 
Inquire : 
: q_extnd ( info flag -- ) 


\ Cette fonction et les’ suivantes servent à établir 

\ quelle fonction-VDI (ci-dessus) vient d'être appelée. 
\ On ne peut pas les décrire rapidement, mieux vaut se 
\ référer à la litterature spécialisée. 

: q color ( color_index info _ flag ) 


: ql attributes (--) 

: qm attributes ( —— ) 

: qf attributes ( -- ) 

: qt attributes ( -- ) 

: qt extent ( string -- ) 

: at width ( char -- status ) 
: qt name ( element_num -- ) 
: q cellarray ( cols rows x1 y1 x2 y2 -- ) 
: qin mode ( dev_type -- mode ) 
; qt_fontinfo ( —- 

Escape : 

: q chcells ( -- rows cols ) 
\ Taille de l'écran. 

: exit cur ( -- ) 

\ Efface le curseur texte. 

: enter _cur ( -—— ) 

\ Remet le curseur 

: curup —— ) 

\ vers Île haut 

: curdown Ç -- ) 

\ vers Île bas 

: curright { -- ) 

\ à droite 

: curleft ( -- ) 

\ à gauche 

: curhome ( -—- ) 

\ curseur dans Île haut à gauche 

: eeos (-- ) 

\ efface jusqu'à la fin de l'écran 
: eeol ( -- ) 

\  ----- — de la ligne 
: s curaddress ( row col -- ) 

\ _ positionne Île curseur 

: curtext ( addr count -- ) 
\ affiche le texte 

; rvon ( -- ) 

\ video inverse on 

: rvoff € -- ) 
Freddie off 

: q_curaddress ( -- row col ) 

\ fournit la position curseur 

: q_tabstatus ( -- status ) 

\ fournit l'état de la souris 

: hardcopy Ç -- ) 

\ 

: dspour (x y --) 

\ positionne Ta souris 

: rmcour ( -- ) 

\ efface la souris 


Les instructions suivantes servent à l'utilisation de 
dispositifs externes. C'est une partie plutôt mal 
documentée. On trouve quelques précisions dans le kit de 
développement de Digital Research. On se demande si toutes 
ces instruction fonctionnent sur T'Atari. Les essais dans 
ce domaine n'ont pas été très concluants jusqu'à présent. 


: form_adv € -- ) 
\ mise en page imprimante. 
: output window € x1 y1 x2 y2 —- ) 


\ Imprime une fenêtre. 
: clear disp list  ( -- ) 
\ Interrompt une impression, comme Clear Workstation, 
\ mais sans linefeed. 
: bit image 
( string aspect scaling num pts x1 y1 x2 y2 -- ) 
Imprime un fichier "Bit Image File’. 


Les instructions suivantes sont tirées d'un 
"Output-driver" additionnel. Leur effet sur l'Atari reste 


inconnu. Elles ne semblent qu'à moitié executées, .. 


: s_ palette ( palette -- selected ) 
\ Définit la palette de couleurs d'un moniteur IBM ??1! 
: qp_films (€ -— ) 
qp_state Ç-- ) 
: sp state ( addr -- ) 
: sp save (-——) 
: Sp message Ç -- ) 
: qp_error ( -- ) 
: meta extents Ç xt y1 x2 y2 -—- ) 
: write meta ( intin num_intin ptsin num _ptsin -- ) 
: m filename ( string --") 


INTERFACE 


FICHIERS DU VOLKSFORTH83 
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INTRODUCTION 


---> Création d'un fichier Forth: 


1) Créer un fichier sur le disque: 


MAKEFILE <nom>.scr 


2) Spécifier sa longueur en nombre d'écrans: 


n MORE 


le fichier contient maintenant les écrans 0 à n-1. Cette 
longueur peut être rallongée par d'autres MORE, mais pas 
diminuée. 


----> Rappel d'un fichier du disque 


Si le forth ne connait pas encore le fichier, il enverra 
le message "Haeh?", Entrer dans ce cas: 


USE <nom>, ser 


L'édition de l'écran n se fait alors par nl. Le mot USE 
crée un nouveau mot dans le dictionnaire nommé <nom>.scr, 
s'il n'existe pas encore. Pour voir si un mot existe 

déjà, utilisez WORDS ou simplement USE. Pour rappeler 
ensuite un fichier ainsi créé, 1 suffit de taper son 
nom... 


Le fichier est créé dans 
l'unité de disque en place. 


le répertoire courant et sur 


----> Sélection du répertoire 


11 existe plusieurs méthodes. La plus simple pour 
rechercher un fichier dans Île répertoire nommé test.dir 
est "dir": 


dir test.dir 


test.dir est devenu le répertoire courant. S'il n'existait 
pas auparavant, on peut le créer par: 


makedir test.dir 


GENERALITES 
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L'interface fichiers du volksforth utilise les fichiers du 
GEM-D0S et le système de sous-répertoires. Les fichiers 
Forth sont organisés de la façon habituelle en écrans de 
1Ko. Les fichiers non conçus de cette façon sont aussi 
traités par blocs de cette taille. Par convention, Îles 
fichiers contenant des écrans Forth ont le suffixe .SCR . 
Les fichiers de données non ASCII ont Île suffixe .BLK . 


La commutation de l'interpretation fichier au mode direct 
se fait par: 


DIRECT ( -- ) 
Le retour à l'interpretation fichier se fait par le nom du 


fichier. 


DOS ( -- ) 
est le vocabulaire qui contient les noms des fichiers peu 
utilisés. 


1) Le mécanisme des répertoires 


La gestion des répertoires rappelle un peu celle de 
l'interpreteur de commandes du GEM-DOS: COMMAND. PRG. 


PATH ( -- ) 
Ce mot permet, comme dans MS-DOS, d'indiquer au système la 
liste des répertoires dans lesquels le nom du fichier doit 


être recherché. 
PATH dirl;dir2;.... 
<dir?2> sont Îles chemins empruntés au cours de 


Le système termine la recherche par Île 
Cette TlTiste ne doit pas contenir 


<dir1>, 
la recherche. 
répertoire courant. 
d'espaces. 

exemple: PATH A: \ 3 B: \COPYALL. DEM; \AUTO\ 

Après avoir cherché sur la disquette A:, Je système 
cherchera dans \COPYALL.DEM puis dans \AUTO\. Les \ sont 
importants, le premier indique que AUTO est un 
sous-répertoire du répertoire principal, et le deuxième 
distingue les noms de chemins des noms de fichiers. On peut 
aussi entrer: 


PATH ; 


Dans ce cas, seul Île répertoire courant sera scruté. Et 


pour finir: 
PATH 
affiche la liste des chemins actuellement scrutés. 


MAKEDIR cccc ( -- ) 
créé un sous-répertoire de nom CCCC dans le répertoire 
courant. Equivalent de MD dans l'interpreteur de commandes. 


A: C--) 
Sélectionne Île lecteur À comme 
SETORIVE). Idem pour B: C: D: 


SETDRIVE (n--) 
Sélectionne le lecteur de numéro n comme unité courante. 
n=0 signifie À, n=1 signifie B etc. 


DIR cccc (€ -- ) 

Spécifie CCCC comme répertoire courant. Tous les nouveaux 
fichiers seront créés dans ce repertoire. Si CCCC n'est pas 
entré, DIR affiche le nom entier du répertoire. Equivalent 
de CD dans l'interpreteur de commandes. 


unité courante. (voir 


FILES (€ -- ) 
Liste le contenu actuel du sous-répertoire courant à 
l'écran. Les sous répertoires sont précédés d'un D. 


Equivalent de la commande DIR de l'interpreteur de 


commandes. 


FILES" eccc" ( -- ) 

Liste les fichiers dont lTe nom est CCCC. CCCC admet les 
jokers ou les noms de sous-répertoires. Si aucun chemin 
n'est précisé, l'actuel est pris par défaut. 
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SAVESYSTEM <nom> 
Permet de stocker le système sous le nom <nom>. Ce mot 
permet surtout de créer une application. Dans ce cas, il 
faut patcher de mot qui lance l'application dans 'COLD. 
Exemple: vous avez écrit un programme de copie, le mot 
principal s'appelle COPYDISK. En etrant la séquence: 

" copydisk is ‘cold 
savesystem copy. prg 


vous créez un programme nommé COPY.PRG qui 
automatiquement COPYDISK. 


exécute 


FICHIERS 


Les fichiers sont constitués d'un nom FORTH et d'un nom 
GEM.DOS, differents l'un de l'autre. Pour exprimer un mot 
forth relatif à un fichier, nous parlerons d'un 
“Forthfile" dans ce qui suit. Pour un fichier présent sur 
la disquette, nous parlerons d'un GEM-file. Taper le nom 
du Forthfile le rend fichier courant pour toutes les 
opérations comme LIST, CONVEY, etc... L'ouverture d'un 
fichier est effectuée par sa recherche dans la liste de 
chemins contenue dans PATH,. Lorsque le fichier est ouvert, 
cette liste de chemins peut être modifiée à volonté, sans 
changer les références du fichier. Pour des raïsons de 
sécurité, il vaut mieux garder les fichiers fermés le plus 
souvent possible. La modification du PATH peut alors 
empêcher le système de trouver le fichier. 


FILE <nom>  ( -- ) 
Créé un mot forth portant Te nom <nom>. Si <nom> est 


ensuite exécuté, il sera considéré comme fichier courant. 
Il sera aussi considéré comme FROMFILE par CONVEY. La 
correspondance entre un Forthfile et un GEM-file est créée 
par MAKE ou ASSIGN. 


MAKE cccc ( -- ) 

Créé un GEM-file de nom CCCC dans le répertoire courant et 
établit sa correspondance avec le Forthfile actuel. Sa 
longueur est nulle et doit être fixée par MORE. Ex: FILE 
test.scr test.scr MAKE test.ser, créé un mot forth 
“test.scr" puis un fichier de même nom. Toutes Îles 
opérations comme LOAD, LIST etc. seront relatives à 
l'écran donné de TEST.SCR. Notez bien que le fichier est 
vide et que des opérations de saisie genèrent un message 
d'erreur. 


MAKEFILE <nom> ( -- ) 
Créé un Forthfile de nom <NOM> puis un GEM-file de même 
nom. La séquence suivante est équivalente: 


FILE <nom> <nom> MAKE <nom> 


ASSIGN cccc ( -- ) 
Assigne le fichier courant au GEM-file de nom CCCC. Un 
message d'erreur apparaît si le fichier est introuvable. 


USE <nom> ( -- ) 

C'est le mot le plus important pour sélectionner un 
fichier. Rend courant le fichier nommé <NOM>. S'il est 
introuvable dans les répertoires de PATH, i1 est créé dans 
le répertoire courant, le message "FILE NOT FOUND" est 
émis et le Forthfile est ajouté au dictionnaire (à effacer 
eventuellement par FORGET). 


CLOSE ( -- ) 

Ferme le fichier courant. La disquette est mise à jour et 
le Handle correspondant est libéré. Tous les blocs de ce 
fichier qui sont en mémoire sont sauvegardés puis effacés 
de la mémoire. 


OPEN ( -- ) 

Ouvre le fichier courant. Un message d'erreur apparait si 
le fichier est introuvable. L'utilisation de ce mot est le 
plus souvent superflue, car cette opération est effectuée 
automatiquement lors d'un chargement. 


FROM <nom> ( -- ) 
<NOM> est le nom du Forthfile qui va être copié par CONVEY 
ou COPY. Exemple: 


filea 1 FROM fileb 3 copy 


copie le bloc 1 de fileb dans le bloc 3 de filea. Ce mot 
utilise USE pour sélectionner le fichier. Cela signifie que 
fileb sera automatiquement créé s'il est introuvable. 


LOADFROM <nom> ( n -- ) 

Charge le bloc n du Forthfile <nom>. Ce mot est pratique 
pour mixer le chargement de plusieurs fichiers. On peut 
ainsi ‘imiter les fonctions d'un linker. Ce mot utilise 


également USE. Malgré les apparences, ce mot n'a rien à 
voir avec FROM ou FROMFILE ! 

INCLUDE <nom> ( -- ) 

Charge complètement Te Forthfile <nom>. L'écran 1 doit 


contenir les instructions de chargement des autres écrans. 
Voir LOADFROM. 


CAPACITY ( -- u ) 
u est la longueur du fichier courant. Notez que cette 
longueur est supérieure de 1 au numéro du dernier bloc, car 


les blocs sont numérotés à partir de 0. 


FORTHFILES ( -- ) 
Affiche Ta liste des Forthfiles, de 


correspondantsleur Tlongueur et leur Handle. 


leurs GEM-files 


FROMFILE ( -- adr ) 

Adr est l'adresse de Ta variable qui pointe sur le 
Forthfile, qui est lue par CONVEY et COPY. Voir FROM. Cette 
variable est mise à jour par l'expression d'un Forthfile. 


FILE? Ç -- ) 
Affiche le nom du Forthfile courant. 


MORE ( n -- ) 
Allonge le fichier courant de n écrans. Ces écrans sont 
rajoutés à la fin du fichier. Celui ci est ensuite fermé. 


(MORE € n -- ) 
Même chose que MORE, mais le fichier n'est pas fermé. 


EF (--f) 
f est un flag, vrai si la fin du fichier vient d'être lue. 
f est faux si Île dernier octet lu n'est pas le dernier du 


fichier. 


NOTES 


L'effacement d'un Forthfile par FORGET, EMPTY etc.. efface 
automatiquement les tampons, après les avoir sauvegardés 
s'ils ont été modifiés. Le fichier est ensuite fermé. 


L'utilisation de FLUSH ferme tous les fichiers. FLUSH doit 
être exécuté avant tout changement de disquette, non 
seulement pour mettre à jour la disquette, mais pour fermer 
les fichiers. S'il existe des fichiers de même nom sur la 
nouvelle disquette, les différences de longueur des 
fichiers ne seront pas comprises par Forth. L'utilisation 
de VIEN permet d'ouvrir automatiquement le bon fichier. 


4) DIVERS 


Le fichier DIVERSES.SCR contient quelques mots difficiles à 
classer. 


>absaddr ( addr -- abs Taddr ) 


convertit une adresse relative du Forth-system en une 


adresse absolue sur 32 bits. 


.bik ( -- ) 
Affiche le numéro du bloc en train d'être compilé. La 
compilation de l'écran 1 donne aussi le nom du fichier. 


abort( Cf -- ) 

utilisé de la façon suivante: 
vrai, la chaine est affichée. Comparable 
utiliser en mode direct. 


ABORT( chaine). Si f est 
à ABORT" mais à 


arguments ( n -- ) 

Vérifie qu'au moins n valeurs soient présentes sur la 
pile. Si ce n'est pas le cas, interrompt l'exécution avec 
un message d'erreur. 


cpush ( addr Ten -- ) 

comme PUSH, mais pour une zone 
restaurée apres l'exécution d'un mot. 
de "tables locales". 


mémoire qui doit être 
Permet la création 


bell ( -- ) 
envoie un "bip" sur la console. 


blank ( addr Ten -- } 
Remplit la zone spécifiée avec des espaces 


setvec ( -- ) 
Positionne un "Critical error handler" du système 
d'exploitation sur une routine qui affiche une boite 


d'erreur d'accès disque. Les autres boites qui peuvent 
tourner sous ce Handler sont par exemple une invitation à 


changer de disquette... 


restvec ( -- ) 
Restaure un "Critical error handler" à son ancienne 
valeur. Cette routine doit être exécutée avant de quitter 
Forth, sous peine de planter le système. 

[| 


DOCUMENTATION DU SIMULATEUR DE CPU 1802 RCA 


par G. DUMUR 


pour TURBO-Forth 
diffusion téléchargement 3615 SAM*JEDI 
et module M4 TURBO-Forth 
Objet du programme: simuler Tes fonctionnalités 


logicielles d'un cpu afin d'exécuter des programmes 
chargés sous forme binaire (code-machine); 1a vitesse 
d'exécution n'est pas conservée mais les possibilités de 
mise au point sont les mêmes que sur un outil de mise au 
point classique. 


Le logiciel a été écrit essentiellement pour tester la 
faisabilité d'un simulateur en Forth avec comme projet Île 
développement d'un simulateur spécialisé pour DSP Texas 
série 320. Aucune difficulté n'a été rencontrée et le 
temps de mise au point a été extrêmement court. Cependant 
de nombreuses extensions sont envisageables et facilement 
réalisables (gestion de la mémoire simulée en ROM/RAM, 
comptage du temps d'éxécution, utilisation d'un fichier 
d'événements pour simuler la marche en temps réel etc..). 


De même une implantation pour une machine moins exotique 
(monochip en particulier) sera facile et utile. 


IMPLANTATION: 


Une zone de 64k de mémoire est réservée pour simuler la 
mémoire de la machine virtuelle (dans l'état actuel et 
faute d'information suffisante sur l'allocation mémoire de 
TURBO-Forth et surtout de l'éditeur aucune protection n'a 
pu être réalisée sur cette machine virtuelle, donc le 
contenu n'est pas forcément valide après une session 
d'édition): cette zone débute à l'adresse 0000h du segment 
calculé ainsi: (segment-courant-forth)+2000 en hexa. 


Les registres du cpu sont simulés par des variables ou des 
tableaux. 


MACHINE VIRTUELLE: 
- un tableau de 16 registres 16 bits (RO-RF) 
subdivisables en moitié haute et moitié basse: accès 16 


bits seulement en écriture: 


val16b numéro-registre r ! 
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15 


16 


en lecture: 

numéro-registre r @ (ou r ?); 

- un accumulateur 8 bits (D): 

en écriture val 8b d! en lecture d@; 

- un registre 1 bit de retenue(DF): 

(e) valib df! (1) df@; 

- 2 registres 4 bits de désignation des pointeurs (X 
pointeur données et P pointeur programme) indiquant lequel 
des 16 registres joue le rôle précité: 

accès (e) val4b x ! ou p !3(1) x @ pe; 


- un registre T de sauvegarde des désignateurs (pas 
d'accès normalement pour Île programmeur ); 


_ une bascule 1 bit Q correspondant à un fil de sortie du 
cpu; 


_ A bits EF correspondant à l'état de 4 fils d'entrée du 
cpu EF1-EF4 positionnables individuellement par: 


numéro sef(set}) et numéro ref (reset); 


- 7 registres entrée et 7 registres sortie correspondant 
aux 7 adresses d'entrée-sortie Bbits du cpu accès: 


(e) valB8b numéro inp! et val8b numéro out! ; 
COMMANDES: FONCTIONNEMENT DE LA MACHINE SIMULEE: 


état-machine:  visualise l'état courant de tous les 
registres avec ou sans les entrées sorties selon l'état de 
la bascule io; 


jo on ou off: positionne la bascule io pour l'affichage; 


g: exécution du programme résident dans la machine 
virtuelle à partir de la position pointée par le registre 
pointeur programme courant; Si le mode trace est activé, 
toutes les instructions exécutées sont affichées 

(en code hexa) sinon le système est muet; dans tous les 
cas, l'exécution sera interrompue soit par l'action sur une 
touche quelconque, soit lorsque le compteur programme 
correspond exactement à une adresse déposée sur la pile 
breakpoint; 


tron et troff:positionne le mode trace; 

Obk: vide la pile des points d'arrêt; 

adresse +bk: empile 1 point d'arrêt;(16 points maximum) 
-bk: dépile le dernier point d'arrêt; 

?bk: visualisation de la pile des points d'arrêt; 

NOTE: lorsqu'un point d'arrêt est atteint il ne peut être 
franchi qu'en pas-à-pas ou bien en le supprimant de la 
pile; 

t: éxécution d'une seule instruction (pas-à- pas); 

GESTION DE LA MEMOIRE SIMULEE: 

adresse sload nomfic.ext: 


charge le fichier binaire 
machine simulée; 


nomfic.ext en adresse dans la 


adresse-début adresse-fin ssave nomfic.ext: 
sauve la zone depuis adresse-début jusqu'à (adresse-fin)-1 
dans le fichier nomfic.ext; 


adresse-début adresse-fin sdump: 
visualise la zone mémoire; 


adresse vedit: éditeur mémoire: 
affiche l'adresse demandée et son contenu sera suivi de: 


p —  ———————…"————— —<——— 


JE N°G% -AVAIC 78 


- espace: passe à l'adresse suivante; 

- backspace (delete): passe à l'adresse précédente; 

- cr (retour-chariot): quitte l'éditeur; 

- caractère hexa: écrit la valeur qui sera formée par 
les 2 derniers caractères hexa à l'adresse courante; 


Voilà, c'est tout pour l'instant. 


vocabulary simO2 
only forth also sim02 also sim02 definitions 
HEX 
variable machine 
( contient 0 si machine hote le segment courant si virt) 
0 machine ! 
variable host variable virt 
segment> @ dup host ! 2000 + virt ! 
( mots d'acces a la memoire du simule) 
: vc@ ( adresse virtuel-c-fetch resultat) 
virt @ swap 1c@ ; 
: vel virt @ swap Ic! ; 
( pas de version 16 bits necessaire pour 1e 1802) 
: toggle-virt ( bascule en machine virtuelle) 
machine @ not 
if 
segment> @ machine ! 
1000 segment> +! 
( 64k reserves au dessus du segment forth) 


then cr ." VIRT." cr ; 
: toggle-host ( bascule en machine hote) 
machine @ 


if machine @ segment> ! 
O0 machine ! ( drapeau faux) 
then cr ." HOST." cr ; 


( “ik SIMULATION DES REGISTRES ET DRAPEAUX #4 ) 
: rtype create 20 allot does> swap 2* + ; 
rtype r 
: i/otype create 7 allot does> + ; 
i/otype input i/otype output 
variable DACCU variable Q variable EFI 
variable p variable x variable rt variable CARRY 
variable ie 
: reset 
10 0 do i r O swap ! loop 
8 1 do à input O swap c! i output O swap c! 1oop 
0Op!Ox!0Ort ! 0 carry ! 0 daceu ! O0 q ! Oefi ! ; 
( Rk SIMULATEUR D'INSTRUCTIONS 1802 ###%% ) 
( mots d'acces aux registres et mecanismes divers) 


: d@ daccu @ ; : d' daccu ! ; 
: df@ carry @ ; : df! carry ! ; 
: sdf O df! ; : vdf 1 df! ; 


: 2p-1 1 swap 0 do 2* loop 2/ ; 

: sef 2p-1 efi @ or efi ! ; 

: ref 2p-1 -1 xor efi @ and efi ! ; 
: inp! input c! ; : out! output c! ; 


: pp pêr: 

: p@ pare; 

: pc! p@r!;: 

: pc@@ p @ r @ vc@ ; ( mrlp]]l ) 
: pc@! p@r @ ve! ; 

1: rx x@r; 

:r@x@e re; 

1: rxl x@r ! ; 

: rx@@ x @ r @ vc@ ; ( mlrix]] ) 


: rx@! x @ r @ vel! ; 

: pc p@r+!; 

{ instructions) 

: Idn dup 
if ( si non 00=idle) Of and r @ vc@ di 1'pc+ 
else drop then ; 

: Ida Of and r dup @ vc@ d! 1 swap +! 1 pot ; 

: JIdx rx@@ d! 1 pc+ ; 

: Idxa rx dup @ vc@ d! 1 swap +! 1 pc+ ; 

: str Of and r @ d@ swap ve! 1 pc+ ; 

: stxd rx dup @ d@ swap ve! -1 swap +! 1 pc+ ; 

: inc Of and r 1 swap +! 1 pc+ ; 

: dec Of and r -1 swap +! 1 pc+ ; 

s rx rx 1 swap +! 1 pc+ ; 

: glo Of and r @ ff and di 1 pe+ ; 

: ghi Of and r @ 100 / d! 1 pc+ ; 

: plo Of and r dup @ fF00 and d@ or swap ! 1 pc+ ; 


t skp 1 pc+ ; 

: 1skp 2 pc+ :; ; 
: 1sz d@ O= if 2 pc+ else 1 pc+ then : 
: Isnz d@ if 2 pc+ else 
: Isdf df@ if 2 pc+ else 1 pc+ then ; 


: Isnf df@ not if 2 pc+ else 1 pc+ then : 


: 1sq q @ if 2 pc+ else 


: Isng q @ not if 2 pc+ else 1 pc+ then ; 


1 pc+ then ; 


1 pc+ then : 


: Isie ie @ if 2 pc+ else 1 pc+ then : 
: nop 1 pc+ ; 

: sep T pc+ Of and p ! : 
: sex Of and x ! 1 pc+ : 
: seq 71 q! 1 pc+ : 

: reg 0q! 1 per : 

: sav rt @ rx@! 1 pc+ ; 


mark x @ 10 * p @ + dup rt! 


-12r +! 1 pc+ ; 
: ret 


1 pc+ rx@@ dup Of and p ! 10/x1! 


: dis 


1 pc+ rx@@ dup Of and p ! 10 / x! 


: shr d@ 2 /mod di df! 1 


: shrc d@ 2 /mod df@ 80 * + d! df! 1 pet ; 


PC+ ; 


: shl d@ 2* 100 /mod dfi d! 1 pc+ ; 


: shlc d@ 2* df@ + 100 /mod df! d! 1 pe+ 


: add rx@@ d@ + 100 /mod df! d! 1 pc+ ; 


: adc rx@@ d@ + df@ + 100 /mod df! d! ? pe+ ; 


: sd rx@@ d@ - 100 /mod 


: sdb rx@@ d@ - df@ 1 xor - 100 /mod df! d! 1 pc+ ; 


: sm d@ rx@@ - 100 /mod 


ou 


3: ori 


smb  d@ rx@@ - df@ 1 xor - 100 /mod df! d! 1 pc+ :; 


dff d! 1 pc+ ; 


dfi d! 1 pc+ ; 


instructions alu a 1 operande) 
1di 1 pc+ pc@@ d! 1 pc+ : 


n 
1 xri 1 pc+ pc@@ d@ xor 
: ani 1 pc+ pc@@ d@ and 
: adi 71 


: Short-branch 1 pc+ 


Of and case 
0 of -1 endof ( br) 
of q @ 1 = endof ( 


pc+ pc@@ d@ or d! 1 pc+ : 


d! 1 pc+ ; 
d! 1 pc+ ; 


pc+ pc@@ d@ + 100 /mod df! dt 1 pc+ 
t adci 1 pc+ pc@@ d@ + df@ + 100 /mod df! d! 1 po+ ; 
: sdi 1 pc+ pc@@ d@ - 100 /mod df! di 1 po+ ; 
: sdbi 1 pc+ pc@@ d@ - df@ 1 xor - 100 /mod df! d! 1 pc+ ; 
ï Smi T pc+ d@ pc@@ - 100 /mod df! d! 1 pot ; 
: smbi 1 pet d@ pc@@ - df@ 1 xor - 100 /mod dfl di 1 pc+ ; 


bq) 


of d@ 0= endof ( bz) 


of df@ 1 = endof ( 
of 1 efi @ and 0= 
of 2 efi @ and 0- 
of 4 efi @ and 0= 
of 8 efi @ and O- 
-1 pc+ 0 endof 
of q @ 0= endof ( 
of d@ 0= not endof 
of df@ 0= endof ( 
of 1 efi @ and O- 
of 2 efi @ and 0= 
of 4 efi @ and 0- 
of 8 efi @ and O- 
endcase 


DOAOTe © D HN Ou B L 1 
Le] 
+ 


if pc@ FF00 and pc@@ or pc! else 1 pc+ then ; 
.: Tong-branch 1 pc+ 


case 
c0 of -1 endof ( 1b 
c2 of d@ 0= endof ( 


bdf) 

not endof ( b1) 
not endof ( b2) 
not endof ( b3) 
not endof ( b4) 
( skp ) 
bnq) 

( bnz) 

bnf) 
endof ( bn1) 
endof ( bn2) 
endof ( bn3) 
endof ( bn4) 


r) 
1bz) 


ca of d@ O= not endof ( 1bnz) 


c3 of df@ 1 = endof 
cb of df@ 0= endof 
ci of q @ 1 = endof 
c9 of q @ O= endof 
endcase 


if pc@@ 100 * 1 pc+ pc@@ + pet 
: $or 1 pc+ rx@@ d@ or di : 


( 1bdf) 
( Tbnf) 

( Tbq) 
( 1bnqa) 


Ü 


: $and 1 pc+ rx@@ d@ and d! ; 


$xor 1 pc+ rx@@ d@ and d! ; 


fin des instructions) 


*#%X DECODEUR D'INSTRUCTIONS tx ) 


: decode ( adresse decode 


pc@@ dup 


) 


2r @ vel! 


: phi Of and r dup @ ff and d@ 100 * or swap ! 1 pc+ 3; 
: inp 07 and input c@ dup rx@t di! 1 pet : 
: out 07 and output rx@@ swap ! 1 rx +! 1 pe+ ; 


Trx +! 


Trx +! 


else 2 pc+ then : 


( fin du decodeur d'instructions) 


( 


f0 and case 


00 of 1dn 
10 of inc 
20 of dec 


30 of short-branch endof 


40 of ]da 
50 of str 
80 of go 
90 of ghi 
a0 of plo 
bO of phi 
d0 of sep 
e0 of sex 


endof 
endof 
endof 


endof 
endof 
endof 
endof 
endof 
endof 
endof 
endof 


>r ( sauvegarde pour equilibre pile) 
between if dup inp then 

between if dup out then 

between if dup long-branch then 
between if dup long-branch then 


dup 61 67 
dup 69 6f 


cc of 


1dx endof 
Tdxa endof 
di endof 
stxd endof 
irx endof 
$or endof 
ori endof 
$xor endof 
xri endof 
$and endof 
ani endof 
shr endof 
Shre endof 
sh endof 
shlc endof 
add endof 
adi endof 
adc endof 
adci endof 
sd endof 
sdi endof 
sdb endof 
sdbi endof 
sm endof 
smi endof 
smb endof 
smbi endof 
nop endof 
seq endof 
req endof 
sav endof 
mark endof 
ret endof 
dis endof 
1skp endof 
1sz endof 
1snz endof 
1sdf endof 
1snf endof 
1sq endof 
1snq endof 
1sie endof 


endcase 


y> 
endcase : 


FAX MONITEUR DE SIMULATION “rieir ) 
Atype ( ecrit les 4 nibbles du 


0 <# # # # # #> type : 


: 2type ( idem pour 2 nibbles ) 

0 <# # # # # #> 2- swap 2+ swap type ; 
variable io 
: ETAT-MACHINE ( affiche l'etat des r 

10 O0 do i 8 mod O= if cr then 
invers ," R" i, 


invers 
invers 
invers 
invers 
invers 
invers 
invers 


io off 


nombre sur la pile) 


egistres internes) 


attoff space i r @ 4type space 


." D: " attoff daccu @ space 2type 3 spaces 
." DF " attoff carry @ 1 and space . 3 spaces 


." P: "'attoff p @ Of and space . 
." X: "'attoff x @ Of and space . 


3 spaces 
3 spaces 


." Ti "'attoff rt @ space 2type 3 spaces 
." IE "attoff ie @ space 2type 3 spaces 


." Q: " attoff Q @ 1 and space . 
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3 spaces 


invers ." EF " attoff efi @ Of and 2 base ! 
space 4type hex cr 
io @ if 
8 1 do 
invers ." i" i. attoff 
space i input c@ ?2type 3 spaces loop er 
8 1 do 
invers ." o" i . attoff space i output c@ 
2type 3 spaces loop cr 
then ; 
(ass EDITEUR DE MEMOIRE SIMULEE 8% 
variable adresse 
: adr. adresse @ dup 10 mod 0= if cr dup 4type then 
space vc@ 2type AE AE 
variable $key ( memoire tempo de. key) 
variable $temp ( accu de chiffres) 
variable $num ( drapeau d'entree numerique encours) 
: tonum ( code-ascii tonu f1 result) 
dup 30 39 between 
if Of and -1 
else dup 41 46 between 
4f 37 - -1 
else 0 
then 
then ;: 
: vedit ( adresse vedit) 
0 $num ! cr dup adresse ! dup 4type space vc@ 2type ." -' 
begin key upc dup $key ! 
$num @ if ( mode entree numerique en cours ) 
$key @ tonum 
if $temp @ 10 * + $temp ! $key @ emit 
( accumule les chiffres) 
else 0 $num ! ( quitte le mode numerique) 
$temp c@ adresse @ ve! ( mise en memoire) 
then 
else $key @ tonum 
if $temp ! -1 $num ! $key @ emit then 
( memorise le ler chiffre et passe ) 
( en mode numerique) 
then 
case 
20 of drop 1 adresse +! adr. endof 
08 of drop -1 adresse +! adr. endof 
2f of drop cr adresse @ dup 4type 
space vc@ 2type ." -" endof 
Od of drop exit endof 
endcase 


LI 


again ; 
HE COMMANDES PRINCIPALES ###%%) 
: pc. ( affiche Île pc) pc@ 4type space pcé@ 2type ; 
: 16table create 20 allot does> Swap 2* + ; 
( table de 16 entiers) 
16table breaktable variable bkptr 
( pointeur sur emplacement bk) 
: Obk O bkptr ! ; 
( usage adresse +bk) 
: +bk bkptr @ dup 10 = 
if drop ." 16 points d'arret maxi!" cr 
else breaktable ! 1 bkptr +! then ; 
: -bk bkptr @ dup 0= 
if drop ." aucun point d'arret!" cr 
else -1 bkptr +! then : 
: 2bk bkptr @ 
begin dup 0= not 
while 
1- dup breaktable @ 4type space 
repeat drop ; 
: pomatch 
bkptr @ 
begin dup 0= not 
while 1- dup breaktable @ pc@ = 
if drop -1 exit then 
repeat drop 0 ; 
variable trace-simulateur 
: tron trace-simulateur on : 
: troff trace-simulateur off ; 


: 9 
begin 
key? not pematch not and 
while trace-simulateur @ 
if pc. cr then decode 
repeat 
etat-machine pc. cr i 
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: + pc. decode etat-machine ; 
: LLOAD ( seg adrdeb -oad--dr:nomfic.ext) 
2OPEN DRV >R -1 ( 65535 octets a lire par defaut) 
EXT$ PAD PLACE " .C " 
EXT$ $! FILENAME PAD COUNT EXT$ $! DUP 1+ C@ 
ASCII : = IF DUP C@ ASCII A - SELECT THEN 
O (OPEN) ?DOS-ERR DUP >R (GET) ?D0S-ERR . ." Octets lus" 
cr 
R> (CLOSE) R> SELECT ; 
: sload ( adrdeb sload nomfic) 
virt @ swap lload ; 
: ssave ( adrdeb adrfin ssave nomfic) 
virt @ -rot Isave ; 
: sdump 
virt @ -rot Idump : 
#kkk FIN DU MONITEUR ##%%%) 
( FIN DU SIMULATEUR ) 


Die Fileselector-Box unter volksFORTH83 auf dem Atari ST 


Bernd Pennemann. Hamburg 


fn dem folgenden artikel “wird die Handhabung der Fileselektor-Bos. die 
das Betriebssvstem des Atari ST zur Verfügung stellt. hesprocher. Ein 
Beispiel demenstriert die Einbindung der Box in den Editor des Volks- 
FORTH83. 


Schiüsselworte : Fileselectorbos, Atari ST. GEM. LL olkRk<FORTH8: 


Die Box 


In einem früheren àrtikel £urden die Hiifsmittel. dis dis GEM (Graphics 
Environment Manager) auf dem Atari ST zur Verfüguns stollt. erwäahat [I]. Zu 
den vordefinierten ObjekKkten des GEM gehôürt die Filesolektair-Fos. Das Hit 
zeigt, wie diese Box aussieht. 

Sie dient der auswahl vou Files, Der Benutsor Kann diese Bôoï auf sLerschiedene 
Arte beeinflusser. 


Er kann 
— À durch aAnklicken einen  Filenamen aus dem Dirsclopéfonster in das 
Auswahlfeid kopieren. 
-) dureh Klicken fn den granuen Bereich {es Sfiders coder  Zjehan ces 
hellen Bereichs das Fenster über das Liroectorv bexesen. 
#:) durch aAnklicken eines Subdirectories oder des Sohliefstmbois An, 


Indexfeld ändern. 


me durch Eingabe Von der Tastatur aus sowohl das Indexfeld als auch das 
Auswahlfeld ändern. Dabei haben die Tasten <Esc> -Backe<pacaz 
<Delete>  <Return? sowie die Cursortastéen eine besondere FanktDon. 


Die Box sollte in GEM-unterstützten Programmimen Verwendet werden. Sie hat den 
Vorteil. daf man leicht Subdirektories manipulieren kann. Auferdeim xird dan 
Benutzer eine Liste der Wahlmôglichkeiten präsentiert. Die 4uswah}l der 
Laufwerke ist mit dieser Box allerdings sehr unbequem. 
Um einen maximalen Bedienungskomfort zu erreichen. soilrte die Box mit 
sinnvollen Vorbesetzungen der Felder erscheinen. In der Regel wird das 
Indexfeld das aktuelle Laufwerk, das aktuelle Subdirectorr und ein “passendes" 
Wildcard enthalten (s.u.). Das Auswanifeld kann 2.B. das zuletzt ausgewählte 
File enthalten. In Applikationen, die mehrere Arten Von Files mit Hilfe der 
Box auswählen, solite für jede Art von Files eine +igene Vorbesetzung 
existieren, da Benutzer oft Verschiedene Typen von Files in verschiedenen 
Subdirectories halten. 


Beim Aufruf der Box werden zwei Strings mitgeliefert. einen für das Indexfeld 
und einen für das Auswahifeld. Im Bild sind das die Strings "A:*:GEM:'.SCR" und 
der leere String gewesen. Nach Drücken von "OK" “wird er Inhalt der beiden 
Felder in die Strings zurück übertragen, sie enthalten dann das ausgewählte 
File und Laufwerk sowie das Directory, in dem sich das File befindet. Um mit 
diesen Informationen das File ôffnen zu kônnen, müssen die Strings erst in für 
das GEMDos geeignete Stücke zerlegt werden. Der Indexfeld-String besteht aus 
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bis zu drei Teilen, nämlich : 


[| Laufwerk ":\" ] { evtl: Subdirecories "\" | [ Wildcard | 


Das Wildcard bestimmt, welche Files des Directories überhaupt in dem Fenster 
präsentiert werden sollen. Im Bild sind das nur Files, die auf .SCR enden, 
also Files, die Screens für das volksFORTH83 enthalten. Dieser Wildcard wird 
nach Aufruf der Box nicht weiter benôtigt und in unserem Programm einfach 
weggeschmissen. Laufwerk und Subdirectory werden mit Hilfe der Worte  SETDIR 
und SETDRIVE an das GEMDos weitergereicht. Anschliefend kann auf das File 
unter seinem Namen zugegriffen werden. 


Das Programm 


Das folgende Listing bindet die Fileselektor-Box in den Editor ein. Bei Aufruf 
des Wortes ED wird die Hox gemalt. der Benutzer kann ein File auswählen und 
nach Anklicken von ‘OR’ ‘das File editieren. Fs wird immer der Screen 1 des 
Files präsentiert. Das Wort ED ruft das Wort BOX_USE auf. BOX_USE 
entspricht in der Wirkung vôilig dem Wort USE , daf im volksFORTH83 vorhanden 
ist. Der entscheidende Unterschied besteht darin, dafB man bei BOX_USE nicht 
den Namen eintippen mub. sondern stattdessen mit Hilfe der Fileselector-Box 
ein File durch Anklicken auswählt. Diese beiden Worte sind zur Benutzung, d.h. 
zum Eintippen von der Tastatur, bestimmt. Die anderen Worte stellen die 
primitiven Funktionen dar. die für den Benutzer nicht so interessant sind. 


Für eigene applikationen. die nur ein File ôffnen, daran herummanipulieren und 
es danach wieder schlieBen, ist das Wort GETFILE auf Screen 6 gedacht. Es 
hat den Vorteil, daf es Kkein Forthfile kompiliert. Die Erklärung des 
Unterschieds zwischen einem Dos- und einem Forthfile würde den Rahmen dieses 
Artikels sprengen: bitte schauen Sie in das Handbuch [21]. 


In den Worten OPEN_FILE und GETFILE wird der Suchpfad des Fileinterfaces 
(siehe PATH in {2 ) mit  PATHES OFF auf die Länge Null gesetzt. Damit der 
bPfad aber nicht verloren ist, ‘“%ird seine Länge mit PATHES PUSA gerettet. 
Siese Mafnahraëen sind erforderlich. damit der pgerade ausgewählte File nur in 
dem ausgewählten Directory und nicht im gesamten Suchpfad gesucht wird. 
Andernfalls kônnte es nämlich passieren. daf im Suchpfad ein File gleichen 
Vamens aber in einem anderen Directory gefunden wird! Andererseits soll der 
Ffad nicht vollständig welôscht werden. damit die VIEW-Funktion des Editors 
die zu suchenden Files auch finden kann. 

Wie schon in {1} erwähnt, muB vor dem Aufruf von GEM-Funktionen. zu denen auch 
die Fileselektor-Box gehôürt, GRINIT  ausgeführt werden. Soll die Applikation 
beendet werden. muB vorher ein GREXIT ausgeführt werden. Da der Editor auch 
eine GEM-aApplikation darstellt, brauchen wir uns bei ED um dieses Problem 
nicht weiter zu kümmern. Im Wort GETFILE Kann das jedoch erforderlich sein. 


Eine Definition der Worte S$ADD und S$SUM findet man in [1] oder [2]. Hier 


wird noch eine zusätzliche Funktion implementiert, nämlich das Anfügen von 
einzelnen Zeichen an einen String. Dies geschieht mit Hilfe von ADDCHAR 


[1] B.Pennemann, Alert-Boxen unter volksFORTH83 auf dem Atari ST, Vierte 
Dimension I/4 (1986) S. 19-23 


(21 B.Pennemann et.al., Handbuch für das volksFORTH83, 2.Auflage vom 
18.12.1986, Selbstverlag (c) 1986,. Hamburg 
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parer 
SHOM_OBJECT DESEL EG L LITTLE 
: Er 


TREE! GET-PIXEL RU INDEX: 
MEDSCR SCRONEX ci A:\6EN\#, SR | 


| ‘on M me œuhli 
NINO_CREATE  FSEL_ IN 


| RE ,SCR 
HOFADDR AF-SLIDES IE ‘So 
FORM_DIAL FORM_DO | ; 
OBJC_FIND OBJC_0RM) SUPEAOEN: 508 | 

— D EUNT_BUTTON 
RER RE AEBRUCH PTIT 


IN MPTSOUT Nm 
ADRIN PTSOUT INTOUT PITSIN INTIN ok 


(Hardcopy oes Atari Bildschitws) 


Die Fehlier 


Die Fileselektor-Box des GEM hat natürlich auch Fehler. Mir sind zwei 
bekannt : 


—) Beim Editieren des indexfeldes durch Texteingabe und anschliefendes 
Drücken von "OK" liefert die Routine den Wert für "CANGEL" statt 
für "OK". Man muB erst den Balken rechts von der Liste der Files 
ankiicken. 


—) Wenn man nach Editieren des Indexfeldes den grau schattierten 
Bereich oberhalb des Fensters anklickt, um das GEM zu veranlassen, 
die Files entsprechend dem neuen Wildcard zuù präsentieren, wird 
das Wildcard auf "‘.‘" gesetzt. 
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VOolksFORTH-43 
0 
#4 EDBOX.SCR #6 bo 26dec8é 


Dieses File erveitert den Editor un eine Fileselectorbor, die 
nach Aufruf des Wortes ED erscheint. 


Die Sehandlung der Bot solite beisoisihaft alle Eventualitäten 
abdecken und kann direkt in eigene Apolikationen eingebaut 
verden. 


mm 
Fe QE À D vœ 1 © ur æ en — © 


\ Losdsèreen iodsc36 
Oniyforin 


\nesds GE inc.ude GEMVAES. SCR 


! Create charhoïd 1 allot 


ts) \ add char to string 
charhold 1 $add : 


: addchar 
charhold c! 


1 4 +thru 


\ select the right files bo 26decè6 
: getsubdir { -- adr Len ] \ get actual subdirectorr 

hers  { Dos à getdrive {+ getdir :diskabort 

here scan-nane ; 


: defauit { adr -- | \initialize fileselectorbor 
{ Gen } inpath off inpath fsum ! 
{ Dos } getdrive Ascii À + addchar  Ascii : 
getsubdir ?dup 
IF $add Ascii \ addcnar ELIE drop THEN 
count $add O0 addchar ; 


addchar 


3 


G \ strio drive and path fron INPATH bc 26dec36 


: strip vildcard | -- ) \dedete tre file-vitdcard 
{ sen j inoath count + 
IN dun cè Ascii | — 
A+ off; 


\ set drive and directory 
} anpath 1+ 


1: set disk 


ds 
strio vel € 

duo 1 @œ Ash À 
1F dup ce fai À 


i Dos } setdrive 2+ THEN 


Qc: get  )duskabort ; 
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be chdec£: 


Qurshsuche nur FÜRTH und ONLY  ; îch hëtte auch 

Gen also Dos also scnreiten künnen, aber durch siplizites 
voranstellen {s.u.) der Vokabulare wird klar, vo bestinate 
Worte zu finden sind... 


ADDCRAR entsoricht #ADD , jedoch für einzeine Zeichen 


bo t7janti 


GETSUEDIR Das aktuelle Subdirectory wird durch Aufruf 
der GENDOS-Funktion genoit und bei HÉRE abgelegt. Die Länge 
vird ait SCAN-NANE festgestellt. 


DEF AULT Initislisiert die Fileselektorbor. Das 
‘Inder'-Feld vird sit den sktuellen Laufverk, des aktuellen 
Subdirectory und eines Mildcard-String, dessen Anfangsadresse 
auf den Stack Lisgt, initistisiert. Der Inhalt des ‘Index - 
Feides befindet sich ab INPATH in Speicher! 


po 26dec36 


STRIP nILOCARD schneidet den Uildcard-String 
hinten vieder ab. Der Rest enthält dann nur noch Laufuerk und 
evtl. Subdirectory. 


SET DESK Mertet INPATH aus. Der Mildcard- , 
String wird sbgeschnitten. das evti. vorhandene Laufuerk 
gesetat und schlieslich. falls vorhanden, das Subdirectory 
gesetzt. 
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é 11 
0 \ oven box and select a file bo 26dect6 bo 2édeceé 
! 
2: do selector (| -- f | \ select a file, set direct. DO SE: ECTOR sait die Fileselector-Ror und 
3 { Gen J'fsel_ input 1 - dun ?erit set disk ; vertet INPATH aus. Wird CANCEL gedrückt, so ist das 
é gelieferte Flag TRUE ! 
$ : (use { adr len -- } \ Like USE , but takes à t 
6 dup #tib ! tib suap caove in off (USE vie USE , jedoch wird der Nase 
7 use ; des 2u benutzenden Files auf den Stack erwartet. Da es keine 
8 priaitive Fora von USE gibt, auf der String erst in den 
9 : open file {-t) \ select s file for future use Text Inout Bufter (TIB} kopiert werden, von vo ihn USE 
10 ‘ *.SCR' default do_selector  dup ?exit éinliest 
it { Dos } pathes push pathes off V'eauiv. ‘PAIR ;" 
12  ( Gea ] insel count (use open ; OPEN FILE Selektiert ait Hilfe der Fileselector-Box 
13 Leufuerk, Subdirectory und File. Sucht und &ffnet das File 
16 BLOCK LIST V L etc. beziehen sich auf das File 
15 
5 12 
0 \ sain vord : display bou, use choice bp 17jan87 bp 1janè? 
l 
2: : desktop (-- x y yh} \6rôke des desktons DESKTOP liefert Lage und 6rôke des Bildschires in Fitel- 
j D O { Gen |] cuidth 880 * cheight &25  : einheiten, {Noraaleruveise à D 640 400} 
é 
5 ; : savescreen {-- ] { Gen ] desktop ser)seni ; SAVESCREEN kopiert den Bildschirsinhalt in einen Buffer 
6 : : restorescreen { -- } { Gen } desktop senliscr ; RESTORESCREEN  .,. und vieder zurück 
7 
8 : bor use {--) \ query à filenase 80x USE Vor Aufruf der Bor wird der Bildschirs gerettet, 
9 savescreen de des GEM nach Léschen der Bor d8s von ihr belegte Rechteck 
10 { Sem ] shou c open file hide c in neutralen Atsri-Grau ausfülit. Uurde CANCEL gedrückt. 
ti restorescreen so vird 3bgebrochen. 
12  acort” dann nicht !° 
11 
!& : ed --} D) Jelertiare ein File; tufe Editor ait 
15 bor_use capacity 1- | sin i : \'adit screen | Screen #1 (falls er existiert} auf 
6 13 
0 \ fileselector for Applications be 26de:86 bp 26dec3s 
1 LA 
î ‘ile selected file In Aovlikationen gibts nur #in Forchiile. nämlich disses.. 
T 
4: gettile i--) \'auery a file GETFILE ordnet ait Hilfe der Filaselectorbox den 
£ selected file [| Dos ] close forthfile SELECTED FILE ein Dosfile au. Es vird auch 
6‘ *.SCR' default gleich aufgenacht 
7 [Gen } shov ce do_selector hide c 
8 abort” dann nicht!° 
9 {Dos ] pathes push pathes off Veauiv. ‘PAIX ;" 
10 {Gew ] insel count 1+  isfiles 
il { Dos ] filensme suap  caove 
12 ooen ; 
13 
lé 
El 
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Classes in Forth 


Vince D. Kimball 
1pswich, Massachusetts 


If one wishes 10 do object-oriented 
programming in Forth, one must first 
add the class concept 10 the language. 
A Forth-like solution to the problem, a 
minor modification of the vocabulary 
concept, is proposed. 


Overview 


The principles of transparency and 
Jocalization seem to be central 1o the 
current interest in object-oriented pro- 
eramming. Transparency emphasizes 
the wish 1o use generic operators across 
data structures, and localization em- 
phasizes the desire to partition a group 
of data structures and operations upon 
them into a separate entity which may 
be understood more or less on its own. 
Currently, Forth does not seem 10 
support these principles in any direct 
way. Multiple-code-field words are a 
first step toward generic operators, but 
they are flawed for general use in that 
they do not allow adding to the original 
class of operators to be used with a 
given data structure. They are useful, 
however, for the very basic operators 
which are common to most data struc- 
tures. Vocabularies seem 10 provide 
Jocalization, but at present they are 
insufficient 10 the task hecause thev do 
not allow easy mixing of different 
vocabularies or the explicit specifica- 
tion of Hinkages among vocabularies. 


If we accept these principles as use- 
ful but want to retain the flexibility and 
performance of Forth, we must dis- 
cover how 10 add structures to Forth 10 
support them without making Forth 
into a pale echo of Smalltalk. The 
proposed solution is to implement the 
class as a modified vocabulars and 10 
enable the use of the class name à 4 
prefix operator for modifving the dic- 
tionarv Search sequence, ! believe that 
this unique concept will provide the 
power of object-oriented programmine 
without sacrificing anv of Forth. 
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Plan 


An extremelv simple method of add- 
ing classes to Forth involves the use of 
Forth's built-in vocabulary system as a 
foundation. The addition of six new 
words plus a modification of Forth's 
dictionary lookup sequence will pro- 
vide the core of object programming 
while maintaining the idiom and flexi- 
bility of Forth. The first three new 
words CLASS, CLASS@ and <SUPER 
allow for the definition of classes. The 
last three new words CLASSVAR, DEFER 
and CLASS> provide the useful ability 
to defer binding the name of a class to 
a word until run time. Other words 
may suggest themselves as more ex- 
perience with this style of program- 
ming is gathered. 


Class Definition Words 


Classes would be defined according 
to the following form: 


CLASS ClassName 
< SUPER SuperClassName 
cLass@ ClassName DEFINITIONS 


(definitions in class ClassName) 
FORTH DEFINITIONS 


The word CLASS would create (in the 
compilation vocabulary) a dictionary 
entry for ClassSName which specifies a 
new list of word definitions forming 
the class being defined. Subsequent 
execution of ClassName will be as a 
prefix operator making the words in 
the class the first part of the search 
order during the next dictionary look- 
up. Thus, the phrase ‘ClassName 
WordName' would find the word 
WordName in the class ClassName, 1f 
there was one, and the search order 
would be the same after the phrase as it 
was beforeit. The word < SUPER would 
be used 16 indicate the superclass of the 
class just defined. 1 would chain the 
class indicated by ClassName to the 
class indicated by SuperClassName. 
When a dictionary search of Class- 
Name is exhausted, SuperClassName 
would be scarched. Those classes with- 
out superclasses could be declared as 


CLASS ClassName < SUPER Object 


The Object class would be the prim- 
ary class, holding definitions common 
to all classes. Classes defined without 
usine the <SUPER word would not be 
chained to any superclass, which might 
be useful in some cases. The word 
cLASs@ would be used in the phrase 
‘“cLASS@ ClassName’” to make the 
following class name the first vocabu- 
lary in the regular search order, rather 
than the active class as it normally is. 


Class Variables and 
Deferred Binding 


As defined above, the class of an 
object must be known when the word 
involved is defined. In some cases it 
may be convenient not 10 have to 
specify the name of a class in advance. 
This ability is provided by employing 
the following phrase: 

Class VarName DEFER WordName 


When this phrase is executed, Word- 
Name is looked up in the vocabulary in 
the class which is currently referenced 
bv ClassVarName and then is exe- 
cuted. This lookup will take a certain 
amount of time, but the increase in 
flexibility may be worthwhile at times. 
It would be an error if WordName 1s 
undefined at run time, of course. 

Class variables are defined by using 
the standard form: 


CLASSVAR Class VarName 


This phrase would define a null class 
variable which would have to be as- 
signed a real class 10 be of use. Unlike 
classes, class variables are not consid- 
cred prefix operators because they ex- 
ecute at run time to provide informa- 
tion 10 DEFER. The method of assiening 
a class to à class variable had perhaps 
be best left to the diseretion of the 
implementor, akhough the following 
form may be satisfactorv: 


ciAsS> ClassName ClassVarName 


The difficult in implementing this 
operation is ensuring that Class Name 
js not executed as a prefis operator. 
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Dictionary Lookup. 


The final change to Forth to provide 
classes would be to moditv its diction- 
arv lo6kKUp sequence in order to enable 
the use of class names as prefix opera- 
tors Which modify the search order 
OnNlY On a temporary basis. The im- 
plémentation of this new Io6kup se- 

fquence would scem to require that there 
{PE an ACTIVECLASS vocabulary to be 
sscarched before CONTEXT and CURENT. 
The execution of a class name would 
patch the ACTIVECLASS variable to a]- 
IoOW searching the appropriate class, 
AUthe end of the search order, the 
ACTIVECLASS vocabulary would be set 
null. This implementation should not 
conflict with any other Special vocabu- 
lary constructs, such as ONLY. 


Application and Implementation 


The general use for classes is to 
Organize the dictionary according to 
the types of objects being used. For 
example, one could use the phrases 
“SINGLE +’ to add single-length inte- 
gers, ‘DOUBLE +” to add double-length 
integers and ‘*FLOAT +°’ to add floating- 
point numbers if the classes SINGLE, 
DOUBLE and FLOAT had been defined to 
describe single-length integers, double- 
length integers and floating-point num- 
bers respectively. Figure One lists the 
code for the same Sample application 
which is used in the Smalltalk book. I 
have used the ONLY Concept to avoid the 
necessity of writing SINGLE before each 
Of the single-length Operations, and I 
have left the implementation of an in- 
teger dictionary class to the readers. The 
example uses three operations from the 
IntDictionary class: (1) at to access the 
value corresponding to a certain code; 
(2) isAt to store a value corresponding to 
a certain code; and (3) new to create a 


‘ new IntDictionary given the maximum 


number of codes involved, The Forth 
code and the usage examples should be 
relatively straightforward. However, it 
may be useful to point out that the 
words corresponding to the dictionary 
codes for income and expense categories 
are not defined in the example; these 
definitions are not essential to under- 
Standing the example and are of the 
form 


codeValue CONSTANT codeName 


Figure Tuo lists the code for imple- 
menting the words L have proposed 
under the Laxen;: Perry FS3 model. The 
code should be relatively straightfor- 
ward, so E will only revien some of the 
more challenging sections. The CLASS 
defining word produces a dictionary 
entry Similar 10 that of the VOCABU. 
LARY defining word with the addition 
of space for a pointer to the class's 
superclass and a different run-time 


aCtUION. DEFER compiles the code ad- 
dress OF its run-time word (DEFER) an 
a counted string representation of the 
Word which follous it in the input 
SITEAM, (DEFER) Xtracts the address of 
the string which followx it, moves the 
instruction pointer past the string, 
L0OKS up the word in the dictionary and 
either executes it or {pes an error 
Message and aborts. FIND is modified 
by the addition of à call to SEARCH- 
CLASS before searching the CONTEXT 
and CURRENT vocabularies if the word 


ONLY  FORTH ALSo CLASS SINGLE 

CLASS FinancialHistory SUPER Object 

CLASS FinancialHietors DÉFINITIONS 
cashOnHand LS ‘hist = ‘n 5 : 

ï incomes {S “hist -- “diet à 2+ ü : 
expenditures 45 ‘hist -- ‘dict 3 4 + 3: | 
initialBalance LS ‘dicti ‘dict? n -- ; 

CREÂTE ,  Slép + 

: new (5 ‘dicti 
CREATE 0 , SWaP nr 

: totalReceivedFrom “5 code hist -- h 5 
incomecs IntDictionars at ; 

: tatalSpentFor ÊS code hist -- n ; 


expenditures IntDictionary at | 


: receive {5 code nhist -- ; 
2DUP cashOnHand +! 
SWF 
incomes Intbictionarx jicat : 
spend “5 code n hist -- ) 
OVER NEGÂTE QUER CashOnHand +! 
SWSP  5R ZDUP totalG6pentFor Ri + 
expenditures Intbictionary icsat ; 


FORTH DEFINITIONS 


Usage Ex amples 


100 IntDictionary new House Income 
100 IntOictionary new HauseExpences 
ONLY FORTH 
House Income HouseExpencses 35 
Utilities 32 Housekhald spend 
fsad 30 Househald spend 

rent 400 Househo]d spend 
Wages 1000 Household receiye 
taxRefund 200 Household receive 
Household CacshOnHand à 


Figure One 
Example Application 


FR 2DUP tütalReceivedFrom R2 


ALEO CLASS FinancialHie 
initialBalance Household 


+ SAP 


tory 


] 
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is not found in the active class and by 
the addition of code 10 set the active 
class to null at the end of the search 
process. SEARCHCLASS simply follows 
the class's superclass chain while 
calling (FIND) 10 search each class’s 
linked list of words along the way. 
One possible concern in implementing 
this proposal is that it introduces another 
kind of prefix. operator 10 the code-field 
prefix operators already proposed with 


multiple-code-field words. One might 
run into situations where a phrase of 
the form ‘‘CodePrefix ClassName 
WordName” must be handled. The 
implementor must ensure that the pre- 
fix operators act properly without in- 
terfering with each other. One would 
not want to try to execute the nonexis- 
tent second code field of ClassName, 
for instance. À simple solution would 
be to implement the code field prefix 


YJARIABLE ACTIVECLASS 
VARIABLE NEWCLASS 


0 ACTIVECLASS ! 


Class Definition Wor ds 


DOES} ACTIVECLASS ! ; 
: (SUPER COLE à 


>BODY 
: CLASS59 {S == ) 
BODY CONTEXT : : 
Class Variables 


CLASSVAR 45 = ) 
CREATE O0 , 
DOES>—3— ACTIVECLASS ! ; 


CLASS? LS -- ) 
>BODY >RODY ©! ; 
{DEFER) {S -- ) 
R> COUNT 2DUP + ?R DROP 
ÉLSE COUNT TYPE 
: DEFER SO —- ) 


{ FIND as defined In FSS 


THEN 0 ACTIVECLASS ! : 


{ pointer to class to be searched ) 
{ pointer to class being defined ) 
HTHRESDS 2% 24 CONSTANT ‘SUPER offset to superclase ptr. À 


: CLASS Pos) 
CREATE IMMEDIATE HERE NEWCLASS ! 
HTHREADS 0 DO 0, LOOP 
HERE VOC-LINK d , 


YOC-LINK ! 0, 


NEWCLASS 9 “SUPER + ‘ ; 


FIND IF EXECUTE 
TRUE ABORT" is undefined." THEN :; 


COMPILE “DEFERY BL WOÜRD Cd {+ ALLOT : IMMEDIATE 
Dictionary Lockup Modifications 
: GEARCHCLASS ‘5 addr -- cfa flag : addr false ) 
FALSE BEGIN 
DUF ACTIVECLASS à GWAF O= OVER AND WHILE 


{ FIND) 


-- cfa flaa : addr false ? 


DUP ‘SUPER + 9 ACTIMECLASS ! 
SWAP DROP OUER SAP HASH à 
REPEAT ; 
FIND {S adôr 
SEARCHCLASS DUP 0= IF 


) 


Figure Two 


Example Implementation 


FORTH Dimensions 
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operators $0 that they check for inter- 
vening class prefix operators OT 0 that 
the code-field prefix operator Sets à 
system variable which is referred 10 in 
determining which code field of a 
multiple-code-field word 10 execule; 
there are many ways that this might be 
done. It seems logical Lo require that 
there be no intervening prefix opera- 
tors between the class name and the 
word name. 


An Open Question 


One of the most difficult questions 
to answer in the object-oriented pro- 
gramming model concerns the han- 
dling of generic classes of composite 
objects, such as arrays or stacks. HOW 
can one efficiently implement à generic 
array class where subclasses may be 
simply instantiated for byte arrays, bit 
arrays, double-length arrays or multi- 
dimensional arrays of these as they are 
needed? The solutions | have seen 
written in Smalltalk seem to be rather 
inefficient. Charles Moore did not in- 
clude an ARRAY word in his initial 
design of Forth for basically this 
reason. } am considering several tech- 
niques, but perhaps someone out there 
already has a solution. 


Conclusion 


The principal benefit of the pro- 
posed approach is that it seems 10 solve 
the perceived problems without dras- 
tically complicating Or changing the 
present character of Forth. Marriages 
of Forth and Smalltalk such as Kriva 


Systems's Neon provide more of 
Smalltalk's explicit structure at the 


expense of Forth's flexibilitv. 1 find 
that approach to be overlv complex, 
although 1 Should express MY thanks to 
the implementors of Neon for provok- 
ing me 16 think about this subject. 
Ultimately, in the authors opinion, the 
responsibility for the production ef 
elegant, clear and powerful software 
rests with the programmer. À language 
should provide à few simple vet power- 
ful and carefull\ integrated CONSITUELS: 
the discipline and imagination of the 
programmer pro ide the rest. 
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